Sub TEST1()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = Range("D2") Then
Range("E2") = Cells(i, "B") '価格を取得
End If
Next
End Sub
データを取得することができます。
データの取得
ForとIfを使って、データを取得してみます。
ForとIfを使って、「商品」を検索して、「価格」を取得できます。
ForとIfを使って、「商品」を検索して、「価格」を取得できました。
データを転記する
次は、データを転記するVBAコードです。
Sub TEST2()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = Range("D2") Then
Cells(i, "B") = Range("E2") '価格を転記
End If
Next
End Sub
では、実行してみます。
データの転記
ForとIfを使って、データを転記してみます。
ForとIfを使って、「商品」を検索して、「価格」に転記できます。
ForとIfを使って、「商品」を検索して、「価格」に転記できました。
データを抽出する
次は、データを抽出するVBAコードです。
Sub TEST3()
j = 1
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If InStr(Cells(i, "A"), "B") > 0 Then
j = j + 1
Cells(j, "D") = Cells(i, "A") '商品を抽出
Cells(j, "E") = Cells(i, "B") '価格を抽出
End If
Next
End Sub
では、実行してみます。
データの抽出
ForとIfを使って、データを抽出してみます。
ForとIfを使って、「A」を含む商品を抽出できます。
ForとIfを使って、「A」を含む商品を抽出できました。
データをカウントする
次は、データをカウントするVBAコードです。
Sub TEST4()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If InStr(Cells(i, "A"), "A") > 0 Then
Range("D2") = Range("D2") + 1 'カウント
End If
Next
End Sub
では、実行してみます。
データのカウント
ForとIfを使って、データをカウントしてみます。
ForとIfを使って、「A」を含む商品をカウントできます。
ForとIfを使って、「A」を含む商品をカウントできました。
データを加算する
次は、データを加算するVBAコードです。
Sub TEST5()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If InStr(Cells(i, "A"), "A") > 0 Then
Range("D2") = Range("D2") + Cells(i, "B") '加算
End If
Next
End Sub