返回列表 發帖

ExcelVBA怎麼複製範圍

圖1(題庫): http://i.imgur.com/F3sbp8U.png?1
圖2(總表): http://i.imgur.com/bcsAqkU.png?1
請問如何把圖1的資料內容複製到圖2去?
Public Sub Autocopy()
Dim a(7)
 a(0) = Range(A8): a(1) = Range(A6)    '

PublicSubAutocopy()
 DimxRAsRange,xShtAsWorksheet
 SetxSht=Sheets(總表)
 SetxR=xSht.[A65536].End(xlUp)(2,1).Resize(10)
 xR=[A8]
 xR.Offset(0,1)=[A6]
 xR.Offset(0,2)=[C6]
 xR.Offset(0,3)=[E6]
 [B11:E20].CopyxR(1,1).Offset(0,4)
EndSub

進階請參考 准大 意見3,4 的 陣列寫入

TOP

返回列表