| |
こんにちは。
詳細不明ですが、まず
1)Cells既定のプロパティを省略しないで書く。
2)hdが何者か不明ですが、hd(j)とhd(K)を分ける。
3)セルへの書込みをLoopではなく、まとめて行う。
などとして、整理されてはいかがでしょう。
With Workbooks("dat.xls").Worksheets("dat1")
.Cells(6, dgd(3)).Resize(UBound(hd)).Value = Application.Transpose(hd)
End With
･･･な感じになるかと。（↑hd(j)とhd(K)を分けた後のhd(j)の処理です）
hdを２次元配列でセットするとTransposeしなくても良いとは思いますが。
ReDim hd(1 To dgd(1), 1 To 1)
For j = 1 To dgd(1)
hd(j, 1) = myh1sheet.Cells(hg(j), hl(j)).Value
Next
：
With Workbooks("dat.xls").Worksheets("dat1")
.Cells(6, dgd(3)).Resize(UBound(hd)).Value = hd
End With
#何かカン違いしてハズしてたらごめんなさい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/7/8(土) 18:27 -
