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 に答える