お世話になります。
ふと思ったのですが
１、
Ｒａｎｇｅなどのｏｂｊｅｃｔの途中から一定量読出し、他に割り付ける。
て、出来ますよね？
どう書けば良いですか？
２、
配列宣言時に、要素数を変数で指定するのって、やはり駄目ですか？
Option Explicit
Option Base 0
Dim 範囲 As Range,要素数 As long,カウンタ As Long,オブジェクト As obuject
Set 範囲 = Sheets(1).Range("B3").CurrentRegion.Resize(1)
If 範囲.Count >= 12 _
Then
要素数 = 範囲.Count
Dim データ(要素数)' ← これ、アウトですよね？ ReDimしかないですか？
Set オブジェクト = 範囲
Set Sheets(2).Range("B3:B8") = オブジェクト（’「此所の書き方が解らないです」）
Set Sheets(2).Range("C3:C8") = オブジェクト（’「此所の書き方が解らないです」）
Else
MsgBox("BadEnd")
End If
End Sub
オブジェクトに限らず、配列とかでも
要素中のN番目からM番目迄を
何かに引き渡す、代入する、
そんな時の書き方が解らないです。
済みません、初歩的なことで。m(_ _)m
ご教示をお願いします。
↧