使用しているセル範囲を配列に格納し、
処理を行おうとしていますが、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