Const NUM_FARE_TYPE = 4
Dim SrcSheet(1 To 4) As String
Sub Initialize
SrcSheet(1) = “AduSR”
SrcSheet(2) = “ConSR”
SrcSheet(3) = “AduSR_1C”
SrcSheet(4) = “ConSR_1C”
End Sub
Sub Copy1a1b()
‘
‘ Copy1a1b Macro
‘
‘
Const NUM_SET = 2
Const SET1_SRC = 10
Const SET2_SRC = 51
Const SET1_DEST_ADUSR = 9
Const SET2_DEST_ADUSR = 77
Const SET1_NUM_STAT = 17
Const SET2_NUM_STAT = 6
Dim i, j, k, m As Integer
Dim SetSrc(1 To NUM_SET), SetDest(1 To NUM_SET), SetNumStat(1 To NUM_SET) As Integer
SetSrc(1) = SET1_SRC
SetSrc(2) = SET2_SRC
SetDest(1) = SET1_DEST_ADUSR
SetDest(2) = SET2_DEST_ADUSR
SetNumStat(1) = SET1_NUM_STAT
SetNumStat(2) = SET2_NUM_STAT
Initialize
‘ SHEET “1a. ISL + TKL: BEGIN
Windows(“2016 Worksheets.xlsx”).Activate
Sheets(“1a.ISL+TKL >”).Select
‘ To ISL: BEGIN
For k = 1 To NUM_FARE_TYPE
Windows(“2016_ (Test).xlsx”).Activate
Sheets(SrcSheet(k)).Select
For m = 1 To NUM_SET
j = SetDest(m) + k – 1
For i = 1 To SetNumStat(m)
Windows(“2016_(Test).xlsx”).Activate
Range(“G” & (SetSrc(m) + i – 1) & “:W” & (SetSrc(m) + i – 1)).Select
Selection.Copy
Windows(“2016 Worksheets.xlsx”).Activate
Range(“H” & j).Select
ActiveSheet.Paste
j = j + 4
Next i
Next m
Next k
‘ To ISL: END
‘ To TWL: BEGIN
For k = 1 To NUM_FARE_TYPE
Windows(“2016_(Test).xlsx”).Activate
Sheets(SrcSheet(k)).Select
For m = 1 To NUM_SET
j = SetDest(m) + k – 1
For i = 1 To SetNumStat(m)
Windows(“2016_(Test).xlsx”).Activate
Range(“X” & (SetSrc(m) + i – 1) & “:AK” & (SetSrc(m) + i – 1)).Select
Selection.Copy
Windows(“2016 Worksheets.xlsx”).Activate
Range(“Y” & j).Select
ActiveSheet.Paste
j = j + 4
Next i
Next m
Next k
‘ To TWL: END
==========================================================================
End Sub