如何在VB視窗中查找EXCEL中滿足條件的內容，并進行讀取到VB的文本框中，如果沒有則將資料追加到EXCEL的表未。
uj5u.com熱心網友回復：
這個東西，你錄個宏不就解決了？Option Explicit
Function FindExcelStr(ByVal fStr As String) As String
''演示在A列中查找相應的內容，如果沒有找到則添加
Dim Rng As Excel.Range, Rng2 As Excel.Range, k As Long
Set Rng = Sheet1.Columns("a:a")
Set Rng2 = Rng.Find(fStr)
If Rng2 Is Nothing Then
''如果沒找到則添加
k = Sheet1.Range("a" & Sheet1.Cells.Rows.Count).End(xlUp).Row ''最后一行資料行
If k = 1 Then If Range("a1") = "" Then k = 0
Sheet1.Cells(k + 1, 1) = fStr
FindExcelStr = "new" ''表示新添加的
Else
FindExcelStr = Rng2.Address ''回傳地址
End If
End Function
Sub test()
Debug.Print FindExcelStr("www")
End Sub
uj5u.com熱心網友回復：
如果是單元格匹配：使用 Set Rng2 = Rng.Find(fStr, LookAt:=xlWhole)轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112422.html
標籤：VB基礎類