- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-7-11
|
13#
發表於 2015-11-6 11:06
| 只看該作者
本帖最後由 准提部林 於 2015-11-6 11:09 編輯
回復 12# donod
Sub TEST()
Dim R&, x&, y&, H, xR As Range
R = Cells(Rows.Count, 1).End(xlUp).Row ’以A欄檢測最後一筆資料列號
If R < 5 Then Exit Sub
For x = Range("X1").Column To Range("AB1").Column 'X ~ AB 欄
For y = 5 To R
Set xR = Cells(y, x)
If xR = " *" Then
If H = "" Then H = Val(Range("W" & y - 1))
If xR(2, 1) = "" And H <> "" Then
xR = "=" & Val(Range("W" & y)) & "-" & H
End If
End If
If IsNumeric(xR) Then H = ""
Next y
Next x
'其它欄位往下加入(規則如上,只有相減值的欄不同)
End Sub
1.先用公式產生檢查重覆的" *" 記號
2.再使用vba進行兩值相減
3.以上只示例X~AB欄的做法,其它欄請自行去套入
4.相減值以公式 = ??? - ??? 表現,方便做比對是否正確 |
|