- ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルVBAの質問)
エクセルVBAで行をコピーして貼り付ける方法
このQ&Aのポイント
- エクセルVBAを使用して、特定の条件に基づいて行をコピーし、別のシートに貼り付ける方法について教えてください。
- セルの値を条件に検索し、その条件に一致する行の特定の列の値を別のシートに貼り付ける方法を教えてください。
- 複数の条件を組み合わせて検索し、一致する行の特定の列の値を別のシートに貼り付ける方法について教えてください。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
Sub Sample() Dim Data As Range Dim i As Integer Dim j As Integer Dim k As Integer Set Data = Sheets("Sheet1").Range("A1").CurrentRegion j = 2 k = 0 With Sheets("Sheet2") For i = 2 To Data.Rows.Count If Data.Cells(i, 6) <> "" Then .Cells(j, 1) = Data.Cells(i, 1) .Cells(j, 2) = Data.Cells(i, 2) .Cells(j, 3) = Data.Cells(i, 5) k = k + 1 If k = 10 Then j = j + 5 k = 0 Else j = j + 1 End If End If Next i End With End Sub