こんにちはすべて60,000行以上のシートがあり、行の列に一定の値が含まれている場合、すべての行を新しいシートにコピーしたいと考えています。特定の値を持つ行をコピーするvba excel
Sub Macro3()
Dim rngA As Range
Dim cell As Range
Set col = Cells(Rows.Count, "A").End(xlUp)
Set rngA = Range("A2", col)
For Each cell In rngA
If cell.Value = "Energizer" Then
cell.EntireRow.Copy
End If
Next cell
End Sub
コードはまったく動作しません。
宛先引数が存在しません。 range.copyメソッド –