返回列表 上一主題 發帖

[發問] 如何將陣列分區段整欄或者整列的寫入儲存格

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2012-9-15 03:22 | 顯示全部帖子
請教各位先進，該如何將程式中陣列DATA的部份資料整欄寫入儲存格內，小弟不知在觀念上哪裡錯誤了，請各位先 ...
sptakung1 發表於 2012-9-15 00:30
  1. Sub Ex()
  2.   Dim Rng As Range, data(33, 24), i%, j%
  3.   With Sheet1
  4.     For i = 0 To 32
  5.       For j = 0 To 11
  6.         data(i, j) = .Cells(i + 6, j + 9)
  7.       Next
  8.     Next
  9.     For i = 0 To 32
  10.       For j = 12 To 23
  11.         data(i, j) = .Cells(i + 51, j - 3)
  12.       Next
  13.     Next
  14.   End With

  16.   With Sheet2
  17.     .Select
  18.     .[A2].Resize(33, 24) = data
  19.     .Range(Columns(1), Columns(24)).AutoFit
  20.   End With
  21.   
  22.   With Sheet3
  23.     .Select
  24.     .[B1].Resize(24, 33) = Application.Transpose(data)
  25.     .Range(Columns(2), Columns(34)).AutoFit
  26.   End With
  27.   
  28. End Sub
複製代碼
test_ans.zip (17.86 KB)

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題