Excel VBA 質問スレ Part70

2021/03/18(木) 22:08:43.71

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part69
https://mevius.5ch.net/test/read.cgi/tech/1607786543/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/05/06(木) 20:15:22.86

>>681
Ruby では、

require 'csv'

input = <<"EOT"
りんご,A,2
りんご,B,4
みかん,D,1
りんご,B,100
EOT

input_ary = CSV.parse( input ) # 2次元配列

# 0/1列目が同じものを排除する。先に現れた行が使われる。「りんご,B,100」は使われない
input_ary.uniq! { |row| [ row[ 0 ], row[ 1 ] ] }

# [["りんご", "A", "2"], ["りんご", "B", "4"], ["みかん", "D", "1"]]

result = [ ]

# フルーツ名でグループ化する
input_ary.group_by { |row| row[ 0 ] }.each do |row|
sum = row[ 1 ].sum{ |row| row[ 2 ].to_i } # 合計
result.push [ row[ 0 ], sum ]
end

pp result #=> [ ["りんご", 6], ["みかん", 1] ]

2021/05/06(木) 20:23:53.60

>>687
なるべく簡潔に書きたくて、そのリスクは無視したw
実際は間に何か挟んだほうがいいね。

2021/05/06(木) 21:11:34.82

>>681
元データいじっていいなら重複の削除が超早い（ダメでもコピーすればいいだけだけど）
ってかSQLのサブクエリなら一行で行けそうだ

Sub Macro5()
Range("a:c").RemoveDuplicates Array(1, 2), xlYes
ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("a:c")).CreatePivotTable Range("e1"), "p1"

Set p1 = ActiveSheet.PivotTables("p1")
p1.PivotFields("com").Orientation = xlRowField
p1.PivotFields("com").Position = 1
p1.AddDataField p1.PivotFields("v"), "合計 / v", xlSum
End Sub

2021/05/06(木) 21:12:21.95

すまん、"com"は"会社名"、"v"は"値段"などに適宜書き換えてくれ

2021/05/06(木) 22:14:14.24

D列に
=COUNTIF(B$2:B2,B2)
数値合計に
=SUMIFS($C$2:$C$9,$A$2:$A$9,"=" & E2,$D$2:$D$9,"=1")

2021/05/06(木) 23:20:33.75

>>681
しつこい

2021/05/07(金) 04:04:27.47

いまだにIFとISERROR組み合わせてエラー回避やってる人いるんだ。。。？？

2021/05/07(金) 04:24:40.54

流石にいまだにVBA使ってるニキの煽りは違うなｗ

2021/05/07(金) 06:55:01.06

iferrorはエラーの場合の値の置き換えでは？

2021/05/07(金) 07:20:54.57

booleanで取りたい場合はIFとISERROR組み合わせた方が早い

2021/05/07(金) 07:26:43.31

Excelのセルって、Accessで言うところのコントロールの
OldValue プロパティってないの？
Application.Undo以外で更新前の値に戻すときに使いたいんだけど

2021/05/07(金) 08:26:31.62

見りゃわかることをいちいち聞くな

2021/05/07(金) 09:36:16.79

教えてください
データベースから取得した大量のデータを、他のシートに簡潔集計したいです。

生データシートには
文字列としてyy(2021)mm(03)をはじめ、メーカ、注文番号、数量、ナンバー、大分類、中分類、小分類など68列に渡ってあります。

理想としては別シートに月別に
メーカ、大分類、中分類、小分類（ピポット的配置のイメージ）で購入金額、数量を降順で出したいです。
メーカや分類名は多く、都度新しいのが出たりするので、メンテナンスなくして自動で出せるようにしたいです。

どうすればいいでしょうか。

2021/05/07(金) 09:51:31.13

>>700
DBに入ってるんだったらSQLで最初からgroup byしたらいいだけ

2021/05/07(金) 10:21:13.76

>>701
すみません、>>700が最終形態ではなく、これができたら私のイメージのモノができるのでお聞きしました。
なのでvbaで回答頂けたら助かります<(_ _)>

2021/05/07(金) 10:44:31.42

>>702
VBAの中でシートに対してSQL投げて
結果のRecordsetをシートに貼り付けるだけでは？

2021/05/07(金) 10:49:59.41

>>703
すみません。
私がSQLを理解していないので、正直わかりません。
何か分かりやすいサイト等あったら教えてもらえますか？

2021/05/07(金) 11:55:04.67

またいつものあいつか

2021/05/07(金) 12:02:29.78

ここの諸先輩方にとってSQLってどういう位置付け？　常識レベル？

2021/05/07(金) 12:10:39.55

手足と同じレベル

2021/05/07(金) 12:13:21.02

>>704
DBがあるんだったらそれをメンテしてる人間もいるだろ？
そいつに聞け

2021/05/07(金) 15:40:07.47

DeBu

2021/05/07(金) 19:08:51.24

>>704
EXCELでどういうObject使ってシートにSQLを投げるかはVBA シート Sql 辺りでググればいくらでも出てくるけどとりあえず一例としてここかな
http://www7b.biglobe.ne.jp/~whitetiger/ex/ex2002088.html

SQLがどういうものかは流石に SQL 入門辺りでググってくれ
今は使ってないとしても本来VBAと同等かそれ以上の優先順位で覚えるべきものだから絶対覚えておいた方がいい。

2021/05/07(金) 20:08:21.87

なぜインプロセスだかアウトプロレスだかの話を入れたのかがわからないな

2021/05/07(金) 21:41:30.83

Ruby on Rails は、MVC(model/view/controller)モデルだから、
最初から、3大データベース(SQLite/MySQL/PostgreSQL)を使う

入門レベル

2021/05/07(金) 22:30:42.79

>>712
MVCだから？馬鹿は黙ってろよ

2021/05/08(土) 00:33:08.33

>>712
ちょっと何言ってるのかわからない

2021/05/08(土) 00:50:58.02

オワコンRubyにしがみつくのはこういう馬鹿ばっか

2021/05/08(土) 00:57:21.53

言語の終わりを実体験するとかなかなか稀有な例だと思う

2021/05/08(土) 00:59:37.62

VBA使っておいて他の言語をオワコン呼ばわりする権利はないと思うが
Ruby荒らしは前からいるキチだからNGしよう

2021/05/08(土) 01:17:43.20

>>716
は？馬鹿なの？
DelphiとかADAとかSmallTalkとかたくさんあるだろ

2021/05/08(土) 01:46:00.09

>>718
どれもこう、誰も使わなくなってから「あ、そういやなくなってたんだ～。D言語（だぶりゅー）なんてあったな～」程度だけど、
rubyに関してはこの狂信者だか超アンチが一強で荒らし回っていて強制終了させている
終わり目の言語に止めをさすとか、こんなん後にも先にもないだろうｗ

2021/05/08(土) 05:21:49.11

>>719
そういう意味なら納得

2021/05/08(土) 08:40:58.17

>>710
ありがとうございます。
ふとした疑問なんですが、基本データベースからの
処理が多い場合は、vbaよりもsql勉強した方がいいのでしょうか。

今vbaを一生懸命勉強している最中ですが、効率の悪いのかなって思ってしまって

2021/05/08(土) 08:47:24.17

Excel Access使うならVBAは必須
データベース使うならSQLは必須

当たり前のことですね

2021/05/08(土) 09:07:14.40

何するにしてもVBAは別に必須ではない
データ処理やプログラミングをするほぼ全ての人にとってSQLは必須

2021/05/08(土) 09:40:04.43

初歩的な質問ばかりですみませんでした(-_-;)
私自身パソコンが苦手なので、せめてvbaを身に着けようと思いましたが・・・

vba sql　どちらも難しそうですﾈ

2021/05/08(土) 09:58:17.60

>>721
＞ふとした疑問なんですが、基本データベースからの
＞処理が多い場合は、vbaよりもsql勉強した方がいいのでしょうか。

それはそうなんだけど
あくまで俺の場合はだけど
SQLをまともに勉強した記憶がない。

まぁ必要にかられたとき
必要な分だけ調べて覚えれば
基本部分は十分追いつけるものって
ことなんだろうな

2021/05/08(土) 10:18:13.28

vbaってどれくらいできたら、まあまあ使える人になりますか"(-""-)"
私は下のやつでもう混乱しています・・・これは基本なんですかね？
Sub ()
　　Dim i As Long
　　Dim ixR As Long
　　Dim ixC As Long
　　Dim ws1 As Worksheet
　　Dim ws2 As Worksheet
　　Set ws1 = Worksheets("練習15")
　　Set ws2 = Worksheets("練習15_回答")
　　ws2.Range("A1").CurrentRegion.Offset(1, 1).ClearContents
　　With ws1
　　　　For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　　　ixC = 2
　　　　　　Do Until ws2.Cells(1, ixC) = .Cells(i, 1)
　　　　　　　　ixC = ixC + 1
　　　　　　Loop
　　　　　　ixR = 2
　　　　　　Do Until ws2.Cells(ixR, 1) = .Cells(i, 2)
　　　　　　　　ixR = ixR + 1
　　　　　　Loop
　　　　　　ws2.Cells(ixR, ixC) = ws2.Cells(ixR, ixC) + .Cells(i, 3)
　　　　Next
　　End With
End Sub

2021/05/08(土) 10:19:00.10

>>724
事務作業で死ぬほど役に立つのはvba。事務だけじゃなく営業でもちょっとした所で使えるなら、事務作業はほぼゼロになるだろう
sqlは使うべき時が来れば、その時に勉強すれば良い。その時に使うのはselectとjoinのはずだ

2021/05/08(土) 10:23:23.79

>>727
なりほど( *´艸｀)
私は事務ですけど、正直vbaもsqlも使わなくても力技でどうにかなってきました。
関数とピポットで・・・
でも時短でvbaしようと思ってやってるんですが、どっちがいいか正直よくわかってません。

勉強しないと

2021/05/08(土) 10:23:26.16

>>726
読みづらいし色々詰め込みすぎ。個人的にも使わないものが多い
・宣言（dim～）
・with
・do　until
はそうそう使わない

＞For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
も
＞最終行＝Cells(.Rows.Count, 1).End(xlUp).Row
＞For i = 2 To .最終行
と分けたほうが読みやすい

for、if、setが使えれば大体良いと思う

2021/05/08(土) 10:25:26.96

>>728
毎回同じピボットを作っているなら、ピボットをvbaでボタン一つで作ってみるとか
普段やってることを自動化するとすぐに覚えられるよ
※ただ、ピボットマクロはかなり大変なのマクロの記録を全力で使ったほうが良い

2021/05/08(土) 10:25:49.52

質問者は現に今使うべき時に来ているのに何を言っているのか
実際SQLで一瞬でできることを知らないままVBAで>>726みたいな暗号を延々血反吐吐きながら垂れ流してる可哀想なVBAerは多いし、質問者もここでSQLを使えと言われていなければそうなっていただろう
SQLはVBAよりずっと簡単だから、あまりVBAを使い込む前にSQLは一通りやった方がいい

2021/05/08(土) 10:26:05.17

>>729
そうなんですか！？
私が使ってるサイトdimは全部に使ってました・・・

すごいショック😢

2021/05/08(土) 10:29:56.46

>>731
vbaを反吐がでるまで打とうと思ってました
私文系で詳しくないから、みなさん数を打って覚えているのかと・・・

一度sqlについて調べてみます。ありがとうございます。

2021/05/08(土) 10:30:50.49

あぁ、確かに一回は触っておいた方がいいか

>>732
どっちでもいいよ
宣言なんて間違えないため＋メモリ節約のためだけど、
今はメモリが潤沢にあるし宣言を書きに頭に戻るとかアホらしいし余計に間違うわ

2021/05/08(土) 11:21:40.14

前から気になっていたんだけどセルを1つ選んで右クリックして挿入や削除するときのメニューで
セルの削除なのに「ファイルの削除」って表示されるの俺だけ？

2021/05/08(土) 11:36:39.10

>>735
yes

2021/05/08(土) 11:50:01.75

>>732
> 私が使ってるサイトdimは全部に使ってました・・・
それで正しい
今時コードの先頭にOption Explicitが入ってないサイトは無視していいレベル
ID:PaQQNn710はレベルの低いドヤ顔爺だから話半分に受け流しておけばいい

2021/05/08(土) 12:39:16.21

ここはドヤ顔爺の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

2021/05/08(土) 13:17:27.11

私の勉強方法が合っているのか分からなくなってきました( *´艸｀)

2021/05/08(土) 13:18:27.12

ID変わっちゃったけどdimのモノです・・・

2021/05/08(土) 13:36:12.98

>>740
dimもwithもdo untilも安心して使っていいよ
ただ必ずしも関数の最初にdimをまとめておく必要はないのでiとかは必要になったときに宣言するのでも大丈夫
あとws1みたいな連番の変数よりは目的を具体的に表した変数名の方が良い

2021/05/08(土) 13:49:53.06

>>741
ありがとうございます。
粛々とがんばります・・・
実際>>726は綺麗ではないんですかね？

2021/05/08(土) 14:01:23.31

>>742
綺麗か綺麗でないかって尺度だとなんともだけど丁寧に書こうとしてるのは伝わるので応援したい
パフォーマンスとか考えるともう少し良くできそうなのと、個人的には関数を小さく分けた方が見通しが良くなるかもしれない（ちょっと曖昧な表現になってすまない）

2021/05/08(土) 14:50:38.57

俺ならこうなるかなぁ
ただ書いてて思ったけど、index(match(),match())で済むような？

Sub () foo
　　Set 元シート = Worksheets("練習15")
　　Set 転記先シート = Worksheets("練習15_回答")
　　転記先シート.Range("A1:B2").ClearContents

　　For i = 2 To 元シート.Cells(元シート.Rows.Count, 1).End(xlUp).Row
　　　　転記列 = 2
　　　　Do Until 転記先シート.Cells(1, 転記列) = 元シート.Cells(i, 1)
　　　　　　転記列 = 転記列 + 1
　　　　Loop
　　　　転記行 = 2
　　　　Do Until 転記先シート.Cells(転記行, 1) = 元シート.Cells(i, 2)
　　　　　　転記行 = 転記行 + 1
　　　　Loop
　　　　転記先シート.Cells(転記行, 転記列) = 転記先シート.Cells(転記行, 転記列) + 元シート.Cells(i, 3)
　　Next
End Sub

2021/05/08(土) 14:53:21.72

間違えた、こうか

Sub () foo
　　Set 元シート = Worksheets("練習15")
　　Set 転記先シート = Worksheets("練習15_回答")
　　転記先シート.Range("A1:B2").ClearContents

　　For i = 2 To 元シート.Cells(元シート.Rows.Count, 1).End(xlUp).Row
　　　　列 = 2
　　　　Do Until 転記先シート.Cells(1, 列) = 元シート.Cells(i, 1)
　　　　　　列 = 列 + 1
　　　　Loop
　　　　行 = 2
　　　　Do Until 転記先シート.Cells(行, 1) = 元シート.Cells(i, 2)
　　　　　　行 = 行 + 1
　　　　Loop
　　　　転記先シート.Cells(行, 列) = 転記先シート.Cells(行, 列) + 元シート.Cells(i, 3)
　　Next
End Sub

>742
慣れてない感じは凄い伝わる
コードは後で見直してすぐに内容が分かるように書いたほうが良い。コメントを入れまくるんだ

2021/05/08(土) 15:03:51.26

みなさんご丁寧にありがとうございます_(._.)_
vbaを使う人はみなさん頭がいいですね・・・自信ないなーww

sql含めてやってみます。。

2021/05/08(土) 15:07:11.21

>>742
Do Until ～ Loop
は他の言語だとあまり見ないから条件逆にして
While ～ WEnd
の方が馴染みのある人が多いっていうぐらいの話
あとコメント入れまくれとか言う老害は無視していい

>>745
そこまでやるなら i じゃ無くて転記元行とかにしろよ

2021/05/08(土) 15:13:57.96

入れまくれってのは程度にもよるけど読み返すときの手がかりとしてのコメントは残しておいた方がいい

2021/05/08(土) 15:16:34.30

ID変える、しつこく何度も質問する、わざとらしいへりくだり
いつものあいつだろうが

2021/05/08(土) 15:26:39.50

>>749
すみません、誰のことを指しているか分かりませんが、私はあなたの想像している人ではありませんよ。
vbaで悩んでて、質問掲示板ってあったので使わせてもらっただけです。

2021/05/08(土) 17:03:41.13

>>729
VB6の開発プロジェクトやってたけど
どのソースコードでもdimもwithもdo untilも当然のように使ってたぞ
お前が使わないってだけじゃないの？
あとOption Explicitつけないのはバグの原因になるから推奨できない。

2021/05/08(土) 18:11:49.59

VBScript（WSH）はDimないし使わないのも自然だけどVBAはありがたくOption ExplicitもDimも使うな

2021/05/08(土) 18:14:06.32

俺は変数宣言するけどoption付けない事も多いな
自分だけのちょんプロとか

2021/05/08(土) 19:23:35.24

>>750
この文章でモロバレ

2021/05/08(土) 20:01:04.28

With使わないのは、C#に採用されなかったように最近の流れだからまあいい
Doも、ループはWhileに統一しろってルールならまあいい

Dim使わんってどういうことだ？
まさか変数の宣言しないってことじゃないよな

Option Explicitなんて自分で書くことまずないが、真っ先に変更するオプションじゃないのか

2021/05/08(土) 20:07:27.25

変数の宣言しないと型違いのエラーとか検知しづらくなるし、
コードの中で比較が出てきた時に自作関数の結果か変数の値かどっちと比較してるのかわかりづらくなったり…

とにかく色々エラー回避とかメンテナンス性とか考えて変数宣言しないのはナシよりのナシかと

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/08(土) 20:35:45.94

基礎ができてなくて、型の使い分けがわからなくて全部Variantで書いてる人

2021/05/08(土) 21:04:16.49

>>755
しない

以下でエラーが起きないって時点で俺はアホらしくなって宣言をやめた

Sub foo()
Dim a As String
Dim b As Long

a = "1"
b = 2
Debug.Print a + b　'3が出るぞ良かったな

End Sub

2021/05/08(土) 21:06:38.67

宣言しないと何ができなくなるのか、何を間違えるのかが分からん

2021/05/08(土) 21:30:00.76

>>758
それは暗黙の型変換が行われるから。

変数の宣言をしたほうがいいのは以下のような場合にエラーにできるから。

public sub foo()
hensu = 1
Debug.Print hansu + 1
end sub

2が出力されることを期待しているが、この場合1が出力される。（変数名の打ち間違い）

2021/05/08(土) 21:36:40.65

VB6やVBAは型が弱いので、変数名の先頭にintやlng、str等をつけてデータ型がわかるようにするのが一般的だと思ってる。
この場合だと
Dim intHensu As Integer
の宣言を入れておくべき。

2021/05/08(土) 21:37:56.47

>>760
なるほど
そういう意味では型をつけずに全部variantで宣言はアリなのか
dim a,b,c
ってな感じで

2021/05/08(土) 21:39:48.07

>>761
変数名見れば何入ってるか分からないか？

2021/05/08(土) 21:43:37.13

>>763
ごめん一般的といったのは、自分がそう思ってただけなので、実際はそうじゃないかも。

2021/05/08(土) 21:45:17.15

何でもかんでもVariant型だと余計にメモリ食ったり速度面で劣るんじゃなかったっけか

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/08(土) 21:52:57.44

簡単なマクロならメモリも速度もほとんど気にしなくていい
そういうのが気になってきてから速くする方法を勉強してもいいと思う

2021/05/08(土) 21:55:44.85

文字列　String
整数　Long
小数以下も必要　Single
日付　Date
Setが必要なもの　Object
なんでも　Variant

初心者ならこれくらいの使い分け出来てたら十分だから宣言はして

2021/05/08(土) 21:57:26.01

大量のデータをがばっと取るときはsql
とってきたデータをチマチマ加工したいときはVBA

二刀流がべだー

2021/05/08(土) 22:02:54.21

変数宣言でいちばん重要なのは
パブリック変数なのか
プライベート変数なのかだよ

型はそんなに気にしなくてよいから
3文字以下ならプライベート、パブリックなら5文字以上にする

2021/05/08(土) 22:18:22.12

>>769
いや、そもそも
外部とのやり取りはプロパティで行わないと
ブレイクポイント等仕掛けて
どこから呼ばれたか分かり辛くなることを考えると
変数をPublicで宣言する機会はまず無くなるだろう。

もちろんこのプロパティと言うのは概念的なものを含めて
Javaの様に関数と同じ様に設定することも含めるけど。

そうすればパブリック、プライベートの
判断のために変数名の考慮を行う必要も無くなる。
良かったな。

2021/05/08(土) 22:31:52.03

>>765
variantはかなり遅い
longをvariantにすると
0.001秒の処理が0.01と、処理時間が10倍近くになることも

>>769
vbaのグローバル変数はマジでやめたほうが良い。大体良くない事が起こる
グローバル変数使うなら作業シートに書いたほうがよっぽどマシ
逆にシートにないデータをconst staticみたいに使うならアリ

2021/05/08(土) 23:54:10.02

>>758
そもそもそのコードで３を期待しないのがおかしいとしか思えんのだが

"12"を期待するなら+じゃなくて&使えよ

2021/05/09(日) 00:48:39.55

>>761
ハンガリアンなついな
VBAあたりを最近書いてないからか

2021/05/09(日) 01:41:49.82

variantにすると型間違いでエラーがでないので
やはり推奨できない

2021/05/09(日) 02:15:37.67

知恵を貸してください

ある可変長2次元配列のデータについて
各列のデータから1つずつ抽出した文字列の組み合わせを出力したいと考えています

例えばArray（2,2）のデータが以下だとします
Array（0,0）="いちご"
Array（0,1）="みかん"
Array（0,2）=""
Array（1,0）="あまい"
Array（1,1）="すっぱい"
Array（1,2）="にがい"
Array（2,0）="100円"
Array（2,1）="200円"
Array（2,2）=""
この場合
「いちご,あまい,100円」「いちご,あまい,200円」「みかん,すっぱい,100円」
などの
空白を除く2*3*2=12通りの組み合わせ全てを抽出したいのです
（抽出先はシートでも配列でも何でも良いです）

そして実際にはこの配列をArray（x,y）とすると
xとyは1以上の自然数で不定です

配列の行数が固定長であれば各行において行の数だけFor文でループの中にループを入れれば良いのでしょうが
配列の行数が1以上の不定数の場合にどうすれば良いか思い付きません

vbaというよりアルゴリズムの問題かも知れませんが
良い方法はあるのでしょうか

2021/05/09(日) 02:26:22.29

はい、いつものあいつ

2021/05/09(日) 04:53:38.03

>>724
はい、難しいです。簡単なら今頃VBマスターで溢れ帰ってます！
日々の努力あるのみです！

2021/05/09(日) 06:11:50.07

相手しない相手しない

2021/05/09(日) 08:20:21.39

ワークシートをグローバル変数みたいなつかい方をする

うむ、よくある

2021/05/09(日) 09:19:54.62

uboundで現在の配列の最大要素番号調べて、そこまでループとかじゃないの？
そもそも配列なんて自分はあんまり使わない。redim preserveって確かかなり遅かった気がする。

2021/05/09(日) 09:44:03.47

ReDim Preserveは１番ケツの次元しか可変に出来ねぇのがとても残念

2021/05/09(日) 09:48:20.73

>>775
Sub foo()
Dim array1() As String
ReDim Preserve array1(3, 3)

array1(0, 0) = "いちご"
array1(0, 1) = "みかん"
array1(0, 2) = ""
array1(1, 0) = "あまい"
array1(1, 1) = "すっぱい"
array1(1, 2) = "にがい"
array1(2, 0) = "100円"
array1(2, 1) = "200円"
array1(2, 2) = ""

For Each dim1 In array1
If dim1 <> "" Then
Debug.Print dim1
End If
Next

End Sub

vbaの動的配列は本当にめんどくさいな

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 10:05:56.73

行数、列数はUBound関数で調べられる
2次元配列の場合は

UBound(array1, 1)
UBound(array1, 2)

で、それぞれの次元の大きさが取得できる
2番目のパラメータが対象となる次元

あと、多次元配列に一気に代入するにはarray関数を次元と同じ数だけ入れ子にする方法がある

　　array1 = Array( _
　　　　Array("いちご", "みかん", ""), _
　　　　Array("あまい", "すっぱい", "にがい"), _
　　　　Array("100円", "200円", ""))

2021/05/09(日) 10:13:55.83

ありがとうございます

ReDim Preserveの配列再定義は知っているのですが
例えば>>782のようだと
「いちご」
「みかん」
「あまい」
……
「200円」
のような2+3+2の7個出力されるだけですよね

「いちご,あまい,100円」
「いちご,あまい,200円」
「いちご,すっぱい,100円」
……
「みかん,にがい,200円」
のような2*3*2の12個を出力したいのです

行数が固定なら例えばArray（2,x）のように列数が不定でも
For i=0 To UBound Array（0,x）
For j=0 To UBound Array（1,x）
For k=0 To UBound Array（2,x）
Debug.Print Array（0,i）& "," & Array（1,i）& "," & Array（2,i）
Next
Next
Next
のようにして空白部分の例外処理を適当に入れれば良いのは分かりますが
行数が不定なので分からないというお話です

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 10:14:00.97

>>775
2次元配列の要素数が不明の場合こういう書き方もできる
　　For i = 0 To UBound(array1)
　　　　For j = 0 To UBound(array1(i))
　　　　　　Debug.Print array1(i)(j)
　　　　Next j
　　Next i

2021/05/09(日) 10:14:31.62

>>782は全然違うわ、スマン

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 10:50:20.26

>>784
とりあえず、Array関数というのが存在するから、変数名にArrayは使っちゃだめ
ArrとかMyArrayとか何か別の名前に変えないと