08/08/07 09:47:54
>>707
はい1×data_nです。
Dim data AS Variant
search=0
if 該当の行が見つかったら then
search=search+1
data(search) = range(cells(search,data_n),cells(search,data_n))
endif
複数行をまとめて配列に移したいのです。
unionでダメでした。
妥協するならせめて一行をまとめて移したい。
上記は妥協コードです。
08/08/07 09:47:54
>>707
はい1×data_nです。
Dim data AS Variant
search=0
if 該当の行が見つかったら then
search=search+1
data(search) = range(cells(search,data_n),cells(search,data_n))
endif
複数行をまとめて配列に移したいのです。
unionでダメでした。
妥協するならせめて一行をまとめて移したい。
上記は妥協コードです。