python-code-memo
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[自分用のpukiwiki]]
複数シートのデータを「全データ」シートへコピーする
元データがあるシートは「全データ」の右側にあるシートから...
このコード内から sh_check を実行していますので、 上記...
Sub matome()
Dim i As Integer
Dim lRow As Long, lCol As Long, lRow2 As Long
Application.ScreenUpdating = False
'----全データシートの有無をチェックします
sh_check
'----列見出しをコピーします
Worksheets(2).Range("1:1").Copy Worksheets(1).Range(...
For i = 2 To Worksheets.Count
With Worksheets(i)
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
lCol = .Cells(1, Columns.Count).End(xlToLeft...
'----シートのデータが2行以上の場合にコピーし...
If lRow >= 2 Then
lRow2 = Worksheets(1).Cells(Rows.Count, ...
.Activate
.Range(Cells(2, 1), Cells(lRow, lCol)).C...
End If
End With
Next i
Worksheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
セルをそのままコピーしていますので、数式などを含む場合に...
貼り付け時に値の貼り付けを行う場合は
Range(Cells(2, 1), Cells(lRow, lCol)).Copy Worksheets(1...
終了行:
[[自分用のpukiwiki]]
複数シートのデータを「全データ」シートへコピーする
元データがあるシートは「全データ」の右側にあるシートから...
このコード内から sh_check を実行していますので、 上記...
Sub matome()
Dim i As Integer
Dim lRow As Long, lCol As Long, lRow2 As Long
Application.ScreenUpdating = False
'----全データシートの有無をチェックします
sh_check
'----列見出しをコピーします
Worksheets(2).Range("1:1").Copy Worksheets(1).Range(...
For i = 2 To Worksheets.Count
With Worksheets(i)
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
lCol = .Cells(1, Columns.Count).End(xlToLeft...
'----シートのデータが2行以上の場合にコピーし...
If lRow >= 2 Then
lRow2 = Worksheets(1).Cells(Rows.Count, ...
.Activate
.Range(Cells(2, 1), Cells(lRow, lCol)).C...
End If
End With
Next i
Worksheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
セルをそのままコピーしていますので、数式などを含む場合に...
貼り付け時に値の貼り付けを行う場合は
Range(Cells(2, 1), Cells(lRow, lCol)).Copy Worksheets(1...
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
