Question

我有一个大工作簿，其中添加了新页面。这些页面都是名称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

Answer 1

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

使用粗体单元格将同一行中的数据拉到另一页面上

1 个答案: