opponitur

Dim i As Long

i = 1

Do While Cells(i, C) <> "foo" 'Cells(i, C)の値がfooでない時に何かの処理を行う

    {処理something}
  
  i = i + 1 'iをインクリメント
Loop

opponitur

    If Len(Cells(R, C)) = LenB(StrConv(Cells(R, C), vbFromUnicode)) Then
    '    ｛Cells(R, C)にある文字列が半角だった時の処理｝
      Else
    '    ｛Cells(R, C)にある文字列が全角だった時の処理｝
    End If

opponitur

//atom-sync-settings