如何可以讓不是"JPM"不顯示出來，也不會留一行空格？
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
回復 20# Hsieh
可以了，謝謝您！
我主要是想在outstanding payments 表內根據HK ETA UPDATE內的資料更新，相同so,如果HK ETA UPDATE內的ETA和outstanding payments 表內的不同，就把outstanding payments 表內的ETA更改成HK ETA UPDATE內的ETA，然後標上顏色，如果相同就不變及如果outstanding payments 表內的so在HK ETA UPDATE表內沒有，也不變。 |
|
|
|
|
|
|
|
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
22#
發表於 2012-11-16 14:27
| 只看該作者
回復 20# Hsieh
Set FRng = wb.Sheets("香港&海防單").Range("A:A").Find(A, lookat:=xlWhole) 請問如果在A:A內有兩個相同資料，那麼如何指令它由下至上找，我想要的是最後那個。
例如：
我想找123456，而出來的答案是e,而不是b.應該怎樣改？
wb.Sheets("香港&海防單").Range("A:A")內有這些資料
123455 a
123456 b
123457 c
123458 d
123456 e |
|
|
|
|
|
|
|
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
23#
發表於 2012-11-16 17:07
| 只看該作者
回復 22# 198188
各位高手，請問有沒有可以幫忙解決這個問題？
Sub HK()
Dim FRng As Range
Dim A As Range, Rng As Range
Dim i As Integer
fs = "C:\Users\patrick.HKG\Desktop\Payment\Updated info\payment report 2012.xlsx"
'fs = ThisWorkbook.Path & "\payment report 2012.xlsx"'同一目錄時使用
Set wb = Workbooks.Open(fs)
With ThisWorkbook.Worksheets("2012")
For Each A In .Range(.[A2], .Range("A1").End(xlDown))
Set FRng = wb.Sheets("New form of payment report").Range("A:A").Find(A, lookat:=xlWhole) 這句只是由A1開始順序找尋下去，得出答案是第一個相同的資料。請問有無方法將它改成由A65536 開始順序找尋上去，得出答案是最後相同的資料
If Not FRng Is Nothing Then
If FRng.Offset(, 6).Value > 0.95 Then
A.Offset(, 5) = FRng.Offset(, 9).Value '讓2012的D欄等於香港&海防單的L欄
If Rng Is Nothing Then Set Rng = A.Offset(, 5) Else Set Rng = Union(Rng, A.Offset(, 5))
End If
End If
Set FRng = Nothing
Next
End With
wb.Close 0
End Sub |
|
|
|
|
|
|
|
