- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
4#
發表於 2021-7-6 16:42
| 只看該作者
回復 3# 准提部林
准大好,
Sheets("1" & "")改為以下,現在沒執行沒問題了,
xrow = xSh.Cells(Rows.Count, 2).End(xlUp).Row - 3
但Sheets("整月統計" & "")改成以下,運作仍不正常,就算改Count, 3,也是無法刪除多餘行數
drow = xSh.Cells(Rows.Count, 2).End(xlUp).Row - 3
請問以下的數字,不是都屬"列數"?為何$B$4:$B$行數,是用"行數"?
Replace("=SUM($G4:$H4)-SUMPRODUCT(($AA$3:$BC$3=""合計"")*($B$4:$B$行數=$B4)*($AA$4:$BC$列數))", "行數", R + 3) |
|