通過編輯主副本生成多個實例

Question

這是我想要更改的屏幕截圖Screenshot1。在圖片中的###需要由
N01
N02
N10等

作爲必需的，因爲它不會在一個順序（可N01，N05，N12等）這將被指定和被替換其餘的需要複製粘貼。這需要在新的工作表中生成。

新生成的工作表將包含所有N01，N02等實例組裝在一起。所需結果的屏幕截圖如下Screenshot2

Answer 1

'根據行A2：T2中提供的主數據創建數據。創建在 「Replicated_Data」 片1-49實例和清除內容在 「Master_Data」 片

私人小組CommandButton2_Click（）

ActiveCell.FormulaR1C1 = "B01" 
Range("A2").Select 
SELECTION.AutoFill Destination:=Range("A2:A50"), Type:=xlFillDefault 
Range("A2:A50").Select 
ActiveWindow.SmallScroll Down:=-55 
Range("B2").Select 
SELECTION.AutoFill Destination:=Range("B2:B50"), Type:=xlFillDefault 
Range("B2:B50").Select 
Range("A49").Select 
SELECTION.AutoFill Destination:=Range("A49:A50"), Type:=xlFillDefault 
Range("A49:A50").Select 
ActiveWindow.SmallScroll Down:=-60 
Range("D2").Select 
SELECTION.AutoFill Destination:=Range("D2:D50"), Type:=xlFillDefault 
Range("D2:D50").Select 
ActiveWindow.SmallScroll Down:=-55 
Range("E2").Select 
SELECTION.AutoFill Destination:=Range("E2:E50"), Type:=xlFillDefault 
Range("E2:E50").Select 
ActiveWindow.SmallScroll Down:=-45 
ActiveWindow.ScrollColumn = 2 
ActiveWindow.ScrollColumn = 3 
ActiveWindow.ScrollColumn = 4 
ActiveWindow.ScrollColumn = 5 
ActiveWindow.ScrollColumn = 6 
Range("M2").Select 
SELECTION.AutoFill Destination:=Range("M2:M50"), Type:=xlFillDefault 
Range("M2:M50").Select 
ActiveWindow.SmallScroll Down:=-50 
Range("R2").Select 
SELECTION.AutoFill Destination:=Range("R2:R50"), Type:=xlFillDefault 
Range("R2:R50").Select 
ActiveWindow.SmallScroll Down:=-55 
Range("S2:T2").Select 
SELECTION.Copy 
Range("S3:T50").Select 
ActiveSheet.Paste 
ActiveWindow.SmallScroll Down:=-65 
Range("N2:Q2").Select 
Application.CutCopyMode = False 
SELECTION.Copy 
Range("N3:Q50").Select 
ActiveSheet.Paste 
Range("J40").Select 
ActiveWindow.SmallScroll Down:=-50 
Range("F2:L2").Select 
Application.CutCopyMode = False 
SELECTION.Copy 
Range("F3:L50").Select 
ActiveSheet.Paste 
ActiveWindow.ScrollColumn = 5 
ActiveWindow.ScrollColumn = 4 
ActiveWindow.ScrollColumn = 3 
ActiveWindow.ScrollColumn = 2 
ActiveWindow.ScrollColumn = 1 
ActiveWindow.SmallScroll Down:=-70 
Range("C2").Select 
Application.CutCopyMode = False 
SELECTION.Copy 
Range("C3:C50").Select 
ActiveSheet.Paste 
Range("C52").Select 
ActiveWindow.SmallScroll Down:=-75 
Range("B2:T50").Select 
Application.CutCopyMode = False 
SELECTION.Copy 
Sheets("Replicated_Data").Select 
ActiveWindow.SmallScroll Down:=-40 
ActiveSheet.Paste 
SELECTION.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("A2:Z1000").ClearContents 

結束子

「複製從 「Replicated_Data」 片數據「測試」表並清除「Replicated_Data」表中的內容。

私人小組CommandButton1_Click（）

Dim lastRow As Long 
lastRow = Sheets("Test").Range("A100000").End(xlUp).Row + 1 ' then next free   row in sheet3 ("Test") 
Sheets("Replicated_Data").Range("A1:T50").Copy 
Destination:=Sheets("Test").Range("A" & lastRow) 
'Remove only the cell contents 
Sheets("Replicated_Data").Select 
SELECTION.ClearContents 

結束子