0

使用しているセル範囲を配列に格納し、
処理を行おうとしていますが、if文で文字列の比較ができていない状態です。
If r(i, 2) Like "MB*" Then を If r(i, 2).value Like "MB*" Then
としてみても、「オブジェクトが必要です」というエラーになってしまいます。
どういうことでしょうか?

 r = Range("A1").CurrentRegion
    For i = 1 To lastRow
        If r(i, 2) Like "MB*" Then
            r(i, 2) = r(i, 2) & "/" & r(i, 3)
            r(i, 5) = r(i, 5) * 8
        Else
            r(i, 2) = r(i, 2) & "/" & r(i, 3)
            r(i, 5) = r(i, 5) * 8 / 1000
        End If
    Next
    
    Range("A1:F" & lastRow) = r
5
  • 2
    lastRowの値は何でしょうか? ワークシートの値がどうなっているのかも示してください。
    – merino
    2022年7月16日 7:37
  • lastRowには、最終行が入っていました。for文の前に、lastRow = Cells(Rows.Count, "A").End(xlUp).Rowで求めてあります。
    – user47671
    2022年7月16日 10:26
  • ループも行われていますし、Range("A1:F" & lastRow) = r というコードも実行されております。全て、else の中の命令が実行されているようです。
    – user47671
    2022年7月16日 10:32
  • ブレークポイントを設定して、r(i, 2)の値がどうなってるか確認してみては?
    – user15092
    2022年7月16日 11:47
  • If r(i, 2) Like "MB*" Then ではなく、If r(i, 6) Like "MB*" Then とすべきですた。比較するセルが間違っておりました。有難うございました。
    – user47671
    2022年7月16日 12:02

1 件の回答 1

0

比較するセルが間違っていたのが原因で、以下の通り修正しました。

修正前:

If r(i, 2) Like "MB*" Then

修正後:

If r(i, 6) Like "MB*" Then

この質問に回答するには、ログインする必要があります。