0

我有一个很大的工作簿，其中添加了新页面。这些页面都是名称 Week(x)。我有宏可以循环并收集数据以将其显示在摘要页面上。

但是，我想要一个可以显示某些数据的页面。该宏将遍历所有“Week()”页面并在 C 列中查找粗体。一旦它看到我希望它复制单元格 C:E 并将其粘贴到新页面上的单元格 D:F 中。

我有相当多的经验，但我希望能在这方面提供一些帮助。我也可以包含代码，这是我第一次发布，所以我将在下面发布。

Sub Front_Page() 
Dim lastrow As Long, i As Long 

For Each ws In Worksheets 
    If ws.Name <> "Summary" And ws.Name <> "Calenders" And ws.Name <> "Front Page" Then
         For i = 1 To 100 
             If Cells(i, 3).FONT.Bold Then 
                ws.Rang("C:E").Select              
                Selection.Copy 
                ActiveSheet.Range("D5:F5").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 
    End If 
Next i 
End If 
Next ws 
End Sub
4

1 回答 1

0 
Option Explicit

Sub Front_Page()
Dim lastrow As Long, i As Long
Dim ws As Worksheet

    lastrow = ActiveSheet.Range("D1000").End(xlUp).Row + 1

    For Each ws In Worksheets
        If ws.Name <> "Summary" And ws.Name <> "Calenders" _
                                And ws.Name <> "Front Page" Then
            For i = 1 To 100
                If ws.Cells(i, 3).Font.Bold Then
                    ActiveSheet.Cells(lastrow, 4).Resize(1, 3).Value = _
                                      ws.Cells(i, 3).Resize(1, 3).Value
                    lastrow = lastrow + 1
                End If
            Next i

        End If
    Next ws

End Sub
于 2013-03-20T20:59:27.937 回答