| |
こんにちは。
xslmの中に同じ様式のシートがたくさんあります。[シート名は 別紙３、別紙３ (2)、別紙３ (3)、別紙３ (4)、別紙３ (n)、、、、となっています。]
その特定セル（結合されてる）たちを、同じbookのsheet1に次々と値をコピーしたいです。
教えてほしいのはどうnをループさせるか、と、別紙３の値をコピーし終えたら 別紙３ (2)の値をsheet1の１つ下の行にコピーするのをどうやるか です。
よろしくお願いします。
〜〜
Sub Macro3()
'
' Macro1 Macro
'
Sheets("別紙３ (2)").Select
Range("B22:K22").Select
Selection.UnMerge
Range("B22").Select
Application.CutCopyMode = False
' ActiveCell.FormulaR1C1 = ""
Selection.Copy
Sheets("Sheet1").Select
Range("A2").Select
'ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("別紙３ (2)").Select
Range("B22:K22").Select
Selection.Merge
Sheets("別紙３ (2)").Select
Range("B20:Q20").Select
Selection.UnMerge
Range("B20").Select
Application.CutCopyMode = False
' ActiveCell.FormulaR1C1 = ""
Selection.Copy
Sheets("Sheet1").Select
Range("B2").Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("別紙３ (2)").Select
Range("B20:Q20").Select
Selection.Merge
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
