[問題] 如何合併兩個巨集
軟體: 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
→
09/19 10:08,
7年前
, 1F
09/19 10:08, 1F
→
09/19 10:10,
7年前
, 2F
09/19 10:10, 2F
→
09/19 10:16,
7年前
, 3F
09/19 10:16, 3F
→
09/19 10:16,
7年前
, 4F
09/19 10:16, 4F
→
09/19 10:17,
7年前
, 5F
09/19 10:17, 5F
→
09/19 10:18,
7年前
, 6F
09/19 10:18, 6F
→
09/19 10:20,
7年前
, 7F
09/19 10:20, 7F
→
09/19 10:21,
7年前
, 8F
09/19 10:21, 8F
→
09/19 10:22,
7年前
, 9F
09/19 10:22, 9F
→
09/19 10:23,
7年前
, 10F
09/19 10:23, 10F
→
09/19 10:25,
7年前
, 11F
09/19 10:25, 11F
→
09/19 17:26,
7年前
, 12F
09/19 17:26, 12F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
