返回列表下一主題上一主題發帖

[發問] 格式化條件累加

annie.l

中學生 Rank: 2

帖子: 14
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: windows11
軟體版本: office 2021
閱讀權限: 20
性別: 女
註冊時間: 2019-4-21
最後登錄: 2022-10-7

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-10-14 09:44 | 只看該作者

[發問] 格式化條件累加

Windows("派工單.xlsm").Activate
   Sheets("二維碼").Select
   Sheets("二維碼").Rows("2:2").Copy

Windows("生產進度.xlsm").Activate
   Sheets("進度表").Select
   Sheets("進度表").Range("A1").Select
   Sheets("進度表").Range("A2:B2").Insert xlDown
   Sheets("進度表").Cells(2, 1).PasteSpecial xlPasteValues
   Sheets("進度表").Range("A1").Select

'複製公式
   Sheets("進度表").Range("I2:J2").Copy
   Sheets("進度表").Range("L2:M2,O2:P2,R2:S2,U2:V2,X2:Y2,AA2:AB2,AD2:AE2,AG2:AH2").Select
   Sheets("進度表").Range("AG2").Activate
   Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation _
      :=xlNone, SkipBlanks:=False, Transpose:=False
   Sheets("進度表").Range("AM3:AV3").Copy
   Sheets("進度表").Range("AM2:AV2").Select
   Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats '貼上一切並且合併條件格式

要如何修正格式化條件才會累加而不是多一筆
=$A$1:$G$1,$A$3:$G$117---目前

=$A$1:$G$117--想變成這樣