📄 macro2.bas
字号:
Range("A" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'**********************************************
Range("C39").Select '*
ActiveCell.Offset(r1, 0).Select '*
'**********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("B" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'*********************************************
Range("D39").Select '*
ActiveCell.Offset(r1, 0).Select '*
'*********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("C" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'********************************************
Range("F39").Select '*
ActiveCell.Offset(r1, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "0"
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("F" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'********************************************
Range("G39").Select '*
ActiveCell.Offset(r1, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "0"
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("E" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'******************************************
Range("H39").Select '*
ActiveCell.Offset(r1, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("H" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("I39").Select
ActiveCell.Offset(r1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("J" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("L39").Select
ActiveCell.Offset(r1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("I" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("K39").Select
ActiveCell.Offset(r1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'************************************************************
'************************************************************
'find out the test station
'************************************************************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 0).Activate
Selection.End(xlUp).Select
T = ActiveCell.Value
Sheets("DPHU").Select
Range("E39").Select
ActiveCell.Offset(r1, 0).Select
ActiveCell.FormulaR1C1 = Get_Word(T, "First")
'***********************************************************
r2 = r2 + 1
'*******************************************
'* SW *
'* *
'*******************************************
ElseIf x(k) = "Design - SW" Then
Sheets("DPHU").Select
Range("C42").Select
ActiveCell.Offset((r1 + r2), 0).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert
'*********************************
''''''copy the data from summary to dphu sheet
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("A" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'**********************************************
Range("C42").Select '*
ActiveCell.Offset(r1 + r2, 0).Select '*
'**********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("B" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'*********************************************
Range("D42").Select '*
ActiveCell.Offset(r1 + r2, 0).Select '*
'*********************************************
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("C" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'********************************************
Range("F42").Select '*
ActiveCell.Offset(r1 + r2, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "0"
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("F" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'********************************************
Range("G42").Select '*
ActiveCell.Offset(r1 + r2, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "0"
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("E" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
'******************************************
Range("H42").Select '*
ActiveCell.Offset(r1 + r2, 0).Select '*
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***************
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("H" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("I42").Select
ActiveCell.Offset(r1 + r2, 0).Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Summary").Select
Range("A1").Select
ActiveCell.Offset(w, 11).Activate
Range("J" & ActiveCell.Row).Select
Selection.Copy
Sheets("DPHU").Select
Range("L42").Select
ActiveCell.Offset(r1 + r2, 0).Select
'ActiveSheet.Paste
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -