| |
仴kanabun 偝傫丗
>仴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
搙乆偺夞摎桳擄偆偛偞偄傑偡丅
僐僺乕偟偰巊梡偟偰傒傑偟偨OK偱偟偨桳擄偆偛偞偄傑偡丅
傂偮偙偄傛偆偱偡偑崱堦搙偍婅偄偟傑偡丅
偙偺幃傪傎偐偵傕墳梡偟傛偆偲巚偭偰帺暘側傝偵廋惓偟偨偺偱偡偑丄僄儔乕偵側偭偰偟傑偄傑偡丅
sheet1偲sheet1偺傛偆偵偨傫偄偮SHEET偩偗偱偺応崌忋偺幃偼偳偺掱搙徣棯偱偒傞偺偱偟傚偆偐丠
擛壗偣傫幃偺撪梕偑壗傪堄枴偟偰偄傞偺偐傢偐傜側偄偺偱傛傠偟偔偍婅偄偟傑偡丅
|
|
kousen
- 09/9/29(壩) 15:40 -
