軟體: Excel 2016
1.如何把下面這兩個巨集放在一起? "巨集1"跑完跑"巨集2"
2.巨集2要如何才能讓他不鎖試算表名稱,不鎖範圍? 因為範圍不一定一樣, 只是想接著巨
集1後面做巨集2的排序而已, 其實是同一個試算表, 不曉得如何不鎖範圍的接上去? 因為
每次撈出來的資料不一定一樣多，鎖範圍就沒辦法每次都用同一個巨集了。
求解，謝謝大家。
Sub 巨集1()
'
'巨集1 巨集?
'
? Columns("A:A").Select
? Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
? Range("A1").Select
? ActiveCell.FormulaR1C1 = "Remark"
? Cells.Select
? Selection.RowHeight = 16.5
? Rows("1:1").Select
? Selection.AutoFilter
? Range("A2").Select
? ActiveWindow.FreezePanes = True
?
End Sub
?
Sub 巨集2()
'
'巨集2 巨集?
'
?
'
? Cells.Select
? ActiveWorkbook.Worksheets("試算表名稱").Sort.SortFields.Clear
? ActiveWorkbook.Worksheets("試算表名稱").Sort.SortFields.Add Key:=Range("
J2
:J50"), _
? SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNo
rmal
? ActiveWorkbook.Worksheets("試算表名稱").Sort.SortFields.Add Key:=Range("
B2
:B50"), _
? SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNo
rmal
? With ActiveWorkbook.Worksheets("試算表名稱").Sort
? .SetRange Range("A1:AW50")
? .Header = xlYes
? .MatchCase = False
? .Orientation = xlTopToBottom
? .SortMethod = xlPinYin
? .Apply
? End With
? Range("A2").Select
?
End Sub
※ 編輯: ptty (42.73.116.28), 09/19/2018 10:08:25