いつも忘れてしまうので
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub test() Set w = ThisWorkbook.Sheets("マスタ") r = 3 Do While w.Cells(r, 1).Value <> "" If InStr(w.Cells(r, 1).Value, "、") >= 1 Then ' 含まれていたら tmp = Split(w.Cells(r, 1).Value, "、") ' 文字列を記号で分割 For i = LBound(tmp) To UBound(tmp) ' 配列のループ rr = rr + 1 Next i Else rr = rr + 1 End If r = r + 1 Loop MsgBox rr End Sub |