- 帖子
- 16
- 主題
- 9
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-19
- 最後登錄
- 2026-10-8
|
請問 我想把一個陣列 分別放在兩個範圍 這樣的寫法 確讓兩個範圍的資料都是一樣的 請問怎麼寫才是對的呢
想把 nameitem(31,1) 到 nameitem(60,9) 得資料放到 Range("M7:U36")
Dim nameitem(60, 9) As Variant
For i = 1 To 60: For j = 1 To 9
nameitem(i, j) = Cells(i + 6, j + 25)
If i = 31 And j = 1 Then
Set myrange_a = Sheets(ftworklcal).Range("M7:U36")
Sheets(ftworklcal).Range("m7:u36").Value = nameitem
Else
Set myrange_a = Sheets(ftworklcal).Range("B7:J36")
Sheets(ftworklcal).Range("B7:J36").Value = nameitem
End If
Next j
Next i
Set myrange_a = Nothing
End Function
請指教 謝謝 |
|
發表於 2010-10-21 13:10
| 
