Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56231 / 76732 ←次へ | 前へ→

【25259】Re:配列の連結
発言  G-Luck  - 05/5/25(水) 19:33 -

引用なし
パスワード
   さむさん ちゃっぴ さん
こんにちは

配列の中身が文字で、配列がVariantでもよいのであれば
下記のようなのはどうでしょうか?
配列の中身に使われていない文字で区切る必要がありますが。

Sub myArray()
  
  Dim A As Variant
  Dim B As Variant
  Dim C As Variant
  Const KUGIRIMOJI As String = " "
  
  A = Array(1, 2, 3, 4, 5)
  B = Array(6, 7, 8, 9, 10)
  
  C = Join(A, KUGIRIMOJI) & KUGIRIMOJI & Join(B, KUGIRIMOJI)
  Set B = Nothing
  B = Split(C, KUGIRIMOJI)
  
End Sub
0 hits

【25254】配列の連結 さむ 05/5/25(水) 13:40 質問
【25256】Re:配列の連結 ちゃっぴ 05/5/25(水) 13:52 発言
【25259】Re:配列の連結 G-Luck 05/5/25(水) 19:33 発言
【25261】Re:配列の連結 ちゃっぴ 05/5/25(水) 20:49 回答

56231 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free