英語① 数学② 社会③ 英語①② 世界史①②③

Visual Basic34閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

ThanksImg質問者からのお礼コメント

回答ありがとうございます。

お礼日時:5/25 20:55

その他の回答(1件)

0

セルを範囲して配列に突っ込むやり方が簡単です。 画像は実行結果も載せてますが、 範囲のセル値 英語① ~ 世界史③ までが、arryData(1,1)~rryData(3,3) の配列の中に入ってるのがわかりますよね。 コードは、A1から始まって、今回はC4までですが、 表をひろげれば、A1と同じ表なら →端 End(xlToRight) ↓端 End(xlUp) まで含めます拡張が可能です。 1つ1つセルを指定してその都度変数につめると、数多くなりすぎて実用的なプログラムではありません。 セル範囲⇔配列 https://excel-ubara.com/excelvba1/EXCELVBA414.html Sub セルを範囲して配列() Dim arryData As Variant Dim startAddress As Variant Dim endAddress As Variant startAddress = "A1" endAddress = range(startAddress).End(xlToRight).address endAddress = Cells(10000, range(endAddress).Column).End(xlUp).address arryData = range(startAddress & ":" & endAddress) Dim cellValue As Variant For Each cellValue In arryData cellValue = cellValue Next End Sub

画像