タグ

2015年6月17日のブックマーク (1件)

  • Office TANAKA - Excel VBA Tips[配列をセルに代入する]

    珍しくmixiのコミュニティで回答したので、こっちにも書いておきます。もともとの質問は「テキストボックスに入力された、改行で区切られたデータを、各セルに一括代入するには?」というものでした。つまり、こんな感じでしょうか。 UserFormの左側はテキストボックスです。MultiLineプロパティをTrueにして、複数行を入力できるようにしています。 一次元配列をセルに代入する たとえば「田中」「鈴木」「山田」という3要素を持つ配列をセルに代入するには、次のようにします。 Sub Sample1() Dim buf As String buf = "田中" & vbCrLf & "鈴木" & vbCrLf & "山田" Range("A1:C1") = Split(buf, vbCrLf) End Sub Split関数は「"田中" & vbCrLf & "鈴木" & vbCrLf & "山