|
初心者です。
n列にデータ分だけ支店番号(1〜)を振りたいのですが教えてください。
下記のコードは統合する分だけ書いて見ました。
※ファイルは10あります。宜しくお願いします。
Sub 統合()
Sheets("sheet1").Select
Range("a2:m200").Select
Selection.Clear
Workbooks.Open FileName:="\\・・・\・・・\・・・\売上01.SLK"
Sheets("売上01").Select
Range("a2:m300").Select
Selection.Copy
Windows("統合.xls").Activate
Sheets("sheet1").Select
Range("a2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormatLocal = "G/標準"
Windows("売上01.SLK").Activate
ActiveWindow.Close
Workbooks.Open FileName:="\\・・・\・・・\・・・\売上02.SLK"
Sheets("売上02").Select
mimi
Application.CutCopyMode = False
Selection.NumberFormatLocal = "G/標準"
Windows("売上02.SLK").Close
Windows("統合.xls").Activate
以下省略
|
|