|
▼かみちゃん さん:
かみちゃん様(=私には本当に、神様です)
本当にありがとうございます。
路頭に迷った状態でしたので、救われた気持でいます。
まだ、答えが出ていませんが(:^^)
実は、会社で暇な時間があっても、この作業のコードを本やネットで調べていると、
「自分のスキルアップのためだ」という理由で怒られるので、自宅でしか調べることができず、相談する人もいなかったもので。
Option Base 1
Sub 支店別シート統合()
Dim シート名 As Variant
Dim 開始セル As String
Dim i As Long
シート名 = Array("札幌", "仙台", "新潟", "中央", "品川", "新宿", "世田谷", "港", "さいたま", "千葉", "横浜", "静岡", "名古屋", "京都", "大阪")
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.name = "一覧"
Sheets(シート名(1)).Activate
ActiveCell.CurrentRegion.Select
開始セル = ActiveCell.Address
Selection.Resize(1).Copy
Sheets("一覧").Range("A1").PasteSpecial xlPasteColumnWidths
Sheets("一覧").Range("A1").PasteSpecial
For i = 1 To 15
Sheets(シート名(i)).Activate
Range(開始セル).CurrentRegion.Select
Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Sheets("一覧").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next i
Sheets("一覧").Activate
End Sub
これでは以下の点で応用できませんでした。
・一行づつ追加されない
・空欄セルがあるとエラーになる
やりたいことと、全体的に的はずれなものとなっているかもしれません。
よろしくお願いします。
|
|