- 帖子
- 163
- 主題
- 45
- 精華
- 0
- 積分
- 246
- 點名
- 28
- 作業系統
- win7
- 軟體版本
- ie
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-8
- 最後登錄
- 2024-12-7
|
本帖最後由 mdr0465 於 2022-4-26 13:07 編輯
回復 30# samwang
SAMWANG 師兄,你好
我都看到資料回填時也有錯位問題, 但我用愚蠢的方法我修正了(請看以下紅字的地方), 這一點我始終不明白當中是為何這樣設定就可以解決, 請SAMWANG 指教
.[A20:A21].EntireRow.Clear
.[B20].Resize(1, xD2.Count) = xD2.Keys
Crr = .[B20].CurrentRegion
For x = 1 To UBound(Crr, 2)
Crr(1, x) = xD(Crr(1, x) & "")
Next
.[B21].Resize(UBound(Crr), xD.Count - 4) = Crr
.[A20] = "XX"
.[A21] = "YY" |
-
-
Sumif VBA.rar
(24.6 KB)
SUMIF
|
發表於 2022-4-26 13:05
| 
