[VBA実践]Excel関数を有効活用しよう![#4]
前回の記事はこちらさて、前回の記事で、CellsとRangeを組み合わせ、スマートなコードを書くことが出来ました。それが以下になります。Sub 担当者ごと抽出()
Dim targetName As String
Dim rowLong As Long
Dim exRowLong As Long
targetName = Cells(1, 9).Value
exRowLong = 2
For rowLong = 2 To 16
If Cells(rowLong, 6).Value = targetName Then
'一緒だった時の処理
Debug.Print "担当者名が" & targetName & "と同じです!"
Range(Cells(exRowLong, 11), Cells(exRowLong, 16)).Value = Range(Cells(rowLong, 1), Cells(rowLong, 6)).Value
exRowLong = exRowLong + 1
Else
'そうでない時の処理
Debug.Print "担当者名が" & targetName & "ではありません!"
End If
Next
End Subこのコードの問題点は、For文の範囲が2~16となっており
0