二欄位的最後值的差值

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-4-30 11:12 | 只看該作者

二欄位的最後值的差值

本帖最後由 ziv976688 於 2017-4-30 11:22 編輯

假設:
A欄有空格和文字和數值
B欄有空格和文字和數值

請問:下列程式碼的正確語法
i = A欄的最後一個數值 - B欄的最後一個數值

求解~謝謝!

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1363
主題: 4
精華: 0
積分: 1373
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-4-26

熱烈參與勳章

2^#

發表於 2017-4-30 13:27 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/502962837

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2017-4-30 13:50 | 只看該作者

hcm19522大大:
感謝您的熱心賜教。

但我需要的是VBA程式語法^^"

葉國洲

小學生 Rank: 1

帖子: 31
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
註冊時間: 2016-10-4
最後登錄: 2017-10-17

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-5-1 09:50 | 只看該作者

Sub diffab()
For i = [a65536].End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(i, 1)) And Cells(i, 1) <> "" Then
a = Cells(i, 1)
Exit For
End If
Next i
For i = [b65536].End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(i, 2)) And Cells(i, 2) <> "" Then
b = Cells(i, 2)
Exit For
End If
Next i
MsgBox a - b
End Sub

複製代碼

回復 1# ziv976688

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2017-5-1 14:45 | 只看該作者

回復 4# 葉國洲
謝謝您的熱心幫忙和指導

TEST.rar (6.42 KB)
可否再請教:
k = "=MAX(A:A)-MAX(B:B)"
Cells("E" & k, 1).Interior.ColorIndex = 6

請問:如何將K的公式語法改成一般程式的語法且能轉成數值?

PS︰A欄最大的數值一定大於B欄最大的數值

謝謝您