0

単一のセルから複数のアイテムを呼び出すことができるかどうか疑問に思っていましたか? 私はスペースが非常に限られているので、すべての情報を 1 つのセルに持つことは大きなメリットになります。たとえば、"Dog,2,5,8" のセルが 1 つある場合、プログラムを実行して、それが何を意味するかを判断し、計算を実行できますか? よろしくお願いいたします。

4

1 に答える 1

0

@Tim Williamsが言ったように、 Split() はあなたが望むことをします。

Sub splitcell()
  Dim TestString As String
  TestString = CStr(Range("A3").Value)

  Dim TestArray() As String
  TestArray() = Split(TestString, ", ")

  MsgBox (TestArray(0) & vbNewLine & TestArray(1) & vbNewLine & TestArray(2) & vbNewLine & TestArray(3))
End Sub

ここに画像の説明を入力

マクロは、次のメッセージ ボックスを表示します。

ここに画像の説明を入力

これで、For ループを使用して TestArray() を反復処理し、ロジックを実行できます。

こちらの MSDN ドキュメントを参照してください

そして、ここに別の投稿があります

于 2013-09-24T17:56:33.620 に答える