| |
仴kousen 偝傫丗
> 儅僋儘偺偁傞僽僢僋偺僔乕僩侾偵丄
> 傕偆堦偮偺僽僢僋偺僔乕僩1偺棉袄傪核甙偡傞応崌
> (及臇紓蜁蠅粋祩軅箓)
儅僋儘偺偁傞Book偼 ThisWorkbook 偱偡丅
偄傑傾僋僥傿僽偵側偭偰偄傞Book偼ActiveWorkbook 偱偡丅
偙偺偽偁偄偼 Windows 僆僽僕僃僋僩傪巊傢側偄偱丄
Book娫偺僐僺儁傪幚峴偱偒傑偡丅
'僐僺乕尦Book偵乽Sheet1乿乽Sheet2乿乽Sheet3乿偑偁傞偲偟傑偡丅
'偙偺3偮偺僔乕僩偐傜摨偠僙儖斖埻傪 儅僋儘偺偁傞Book偺乽Sheet1乿
丂A楍偵僐僺儁偟傑偡丅
'僐僺乕尦Book偺傎偆傪傾僋僥傿僽偵偟偰埲壓傪 偍帋偟偔偩偝偄
Sub Copy_to_ThisWorkbook()
丂丂Dim ws As Worksheet
丂丂For Each ws In ActiveWorkbook. _
丂丂丂丂丂丂丂丂丂 Worksheets(Array("Sheet1", "Sheet2", "Sheet3"))
丂丂丂丂ws.Range("A1:A10").Copy _
丂丂丂丂ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1)
丂丂Next
End Sub
|
|
kanabun
- 09/9/29(壩) 13:08 -
