Variant型配列で
Dim myZaiko
Worksheet("bbb").Activate
myZaiko=worksheet("bbb").range("A1:E100")
とした時に
別のWorksheet("aaa")にA列とC~E列をそれぞれmyZaikoから取り出して貼り付けるということは可能なのでしょうか?
ニュアンスとしては下のような感じなのですが指定の仕方がわかりません。
Worksheet("aaa").Activate
Worksheet("aaa").range("A1:A100").value=myZaiko(A列だけ)
Worksheet("aaa").range("C1:E100").value=myZaiko(C~E列)
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
1個ずつ取り出すような気がします。
Dim myZaiko
Dim i As Long
Dim j As Long
myZaiko = Worksheets("bbb").Range("A1:E100").Value
For i = 1 To 5
For j = 1 To 10
MsgBox myZaiko(j, i)
Next j
Next i
一例ですが、
Dim myZaiko
を
Dim myZaiko As Range
myZaiko=worksheet("bbb").range("A1:E100")
を
Set myZaiko=worksheets("bbb").range("A1:E100")
として
Worksheet("aaa").range("A1:A100").Value=myZaiko
を
Worksheets("aaa").range("A1:A100").Value=myZaiko.Columns(1).Value
と、いうようなやり方はだめでしょうか。
後半部、これもNo.3の方と同じような感じですよね。
こっちの方が考えていたのにあってましたね。
お二方、感謝します。
動的配列の取りだし方、という点でこちらの方が優れてましたね。
ありがとうございました。
No.3
- 回答日時:
A1:E100の範囲のデータを
I列にA列・K~M列にC~E列のデータを入れるとするなら
Sub try()
Dim r As Range
Set r = Range("A1:E100")
Range("I1:I100").Value = Intersect(r, Range("A:A")).Value
Range("k1:M100").Value = Intersect(r, Range("C:E")).Value
End Sub
では意味無し?
ありがとうございます。
たぶんこれがもっとも簡単なのでしょうね。
Intersectを初めて見ました。
まだ知識が足りてないと実感しました。
さらに精進します。
No.2
- 回答日時:
Sub test()
Dim myZaiko1, col1, myZaiko2, col2
Set myZaiko1 = Worksheets("bbb").Range("A1:F100")
Set myZaiko2 = Worksheets("aaa").Range("A1:F100")
'myZaiko2.Value = myZaiko1.Value そのままコピーするのならこれだけで済むが、列ごとにしたいというのであれば、以下。
Set col1 = myZaiko1.Columns
Set col2 = myZaiko2.Columns
For i = 1 To 6
col2(i).Value = col1(i).Value
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VLOOKUPの列番号の最大は?
-
列方向、行方向の定義
-
VBA 指定した列にある日時デー...
-
エクセルで離れた列を選択して...
-
エクセル マクロ 範囲の値を上...
-
エクセルでセル12個間隔で合...
-
エクセルマクロの組み方
-
データシートビューのタイトル...
-
リストからデータを紐付けしたい
-
Excel/VBA ステップインと通常...
-
VBA Splitで「引数の数が一致...
-
エクセルで複数列の検索をマク...
-
土日の列幅の自動変更を教えて...
-
エクセル 任意の列数で分割する...
-
エクセル 重複 隣の列 一番...
-
エクセルで最初の行や列を開け...
-
エクセル マクロ 範囲指定で...
-
エクセルの行を65536以上に増や...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
Excelの行数、列数を増やしたい...
-
列方向、行方向の定義
-
VBA 指定した列にある日時デー...
-
エクセルマクロPrivate Subを複...
-
Excel文字列一括変換
-
エクセル マクロ 範囲指定で...
-
Alt+Shift+↑を一括で行うには、...
-
CSVファイルの「0落ち」にVBA
-
VBAで結合セルを転記する法を教...
-
エクセルで複数列の検索をマク...
-
リストからデータを紐付けしたい
-
横軸を日付・時間とするグラフ化
-
エクセルで最初の行や列を開け...
-
エクセルのソートで、数字より...
-
エクセルマクロの組み方
-
☆Excel VBAでAVERAGE関数を使う...
おすすめ情報