タイトルの通りなのですが、
例えば、
A1~B10にランダムな数字が入っています。
(1)A1~B10を配列Cに格納します。
(2)配列C(1,10)を変数test1に格納します。
※その時に各配列を/で区切る
(3)配列C(2,20)を変数test2に格納します。
※その時に各配列を/で区切る
(4)test1をセルC1に記入
(5)test2をセルC1に記入
のような感じです。
配列に格納する方法はさすがに分かるのですが、区切り文字を入れて変数に格納する方法が分かりません。。。。
ご教授お願いいたします。
No.4ベストアンサー
- 回答日時:
よく考えたら、一度配列に取り込んで結合、としてもいいですが、
直接変数に区切り文字で挟みながら結合する、でもいいですね。
Dim c As Range
Dim r As Range
Dim mystr As String
Set r = ActiveSheet.Range("A1:B5")
mystr = ""
For Each c In r
If mystr <> "" Then mystr = mystr & "/"
mystr = mystr & c.Value
Next c
MsgBox mystr
No.3
- 回答日時:
どういう配列でも使うには、一つづつ一次元配列に格納する、
という方法があります。
Dim c As Range
Dim r As Range
Dim ary() As Variant
Dim arycnt As Long
Set r = ActiveSheet.Range("A1:B5")
arycnt = -1
For Each c In r
arycnt = arycnt + 1
ReDim Preserve ary(0 To arycnt)
ary(arycnt) = c.Value
Next c
MsgBox Join(ary, "/")
Erase ary
No.1
- 回答日時:
こんなことですか?
変数=Join(配列,"/")
ありがとうございます。
多分とても初歩的な事なんですよね。。。
で、作ってみたのですが、
「プロシージャーの呼び出し、または引数が不正です。」
と出てしまいました。
理由を調べているのですが、分かりません。
多分、ものすごく初歩的なミスだと思うのですが見て頂けますでしょうか。
------
Sub Macro1()
Dim bbb As Variant
Dim aaa As String
bbb = Range("C1:C3")
aaa = Join(bbb, "/")
Range("D1").Value = aaa
End Sub
------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Ruby 初心者プログラミング 3 2022/10/12 11:31
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- C言語・C++・C# C#の問題です。 文字列型の配列 s[100] にキーボードから入力された100文字以内の文字列(単 2 2022/06/22 15:18
- C言語・C++・C# 10人分の生徒の英語の点数{32,34,41,38,40,26,14,46,42,50} と数学の点 2 2022/05/26 21:31
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- PHP カラーミーショップのSmartyでの文字列抜き出し 2 2022/05/06 11:51
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのセルの色指定をVBAから...
-
エクセルで、絶対値の平均を算...
-
表にフィルターをかけ、絞った...
-
ExcelのINDEXとMATCH関数でスピ...
-
Excel オートフィルタのリスト...
-
配列がとびとびである場合の書き方
-
array関数で格納した配列の型を...
-
SUMPRODUCT関数を用いた最小値
-
【VBA】ユーザーフォーム リス...
-
.NET - 配列変数を省略可能の引...
-
エクセル 条件を指定した標準...
-
[エクセル]連続する指定範囲か...
-
【VBA】 動的な変数(定数)の指定
-
配列に画像を格納
-
配列の受け渡しについて
-
[VBA]改行入りのセルの値を配列...
-
【VBA】配列に数式を仕込む方法...
-
C言語で、変数名を引数として渡...
-
VBA Dictionaryオブジェクトの...
-
リストボックスの列見出し(Exc...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのINDEXとMATCH関数でスピ...
-
array関数で格納した配列の型を...
-
Excelのセルの色指定をVBAから...
-
[エクセル]連続する指定範囲か...
-
エクセルで、絶対値の平均を算...
-
VBA listBoxについて
-
表にフィルターをかけ、絞った...
-
VBA 配列に格納した値の平均の...
-
iniファイルのキーと値を取得す...
-
[VBA]改行入りのセルの値を配列...
-
配列がとびとびである場合の書き方
-
エクセルでエラーを無視して一...
-
DataSetから、DataTableを取得...
-
Excel オートフィルタのリスト...
-
Split関数でLong配列に格納する...
-
読み込みで一行おきに配列に格納
-
VB6.0 ファイルの一括読込み
-
SUMPRODUCT関数を用いた最小値
-
INDEX(D:D,L3)の意味は?
-
Dictionaryを使い4つの条件の一...
おすすめ情報