Board logo

標題: excel vlook值得比對問題 [打印本頁]

作者: lionliu    時間: 2015-5-28 12:27     標題: excel vlook值得比對問題

各位大哥好
      小弟有一個問題想讓SHEET A 的品名過到SHEET B
嘗試了一些條件作法如附件,但是會錯。
有事著INDEX的方法但是也做不出來想請教應如何解[attach]21053[/attach]
作者: jcchiang    時間: 2015-5-28 13:14

回復 1# lionliu


是這樣嗎??

Sub desc()
'pk ctn

Dim i, j, rcnt As Integer
Dim x As Variant
Sheets("B").Select
rcnt = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To rcnt
   x = 1
   Do While x <= Sheets("a").Range("a1").CurrentRegion.Rows.Count
      If Sheets("a").Cells(x, 1) = Sheets("B").Cells(i, 1) And IsNumberic(Cells(i, 3).Value) Then
         Cells(i, 2) = Sheets("A").Cells(x, 2)
         Cells(i, 2).Offset(1) = Sheets("A").Cells(x, 2).Offset(1)
      End If
      x = x + 1
   Loop
Next
Set x = Nothing
End Sub
Function IsNumberic(Value As String) As Boolean
   
    If Value Like "[+-]*" Then Value = Mid$(Value, 2)
    IsNumberic = Not Value Like "*[!0-9.]*" And Not Value Like "*.*.*" And _
    Len(Value) > 0 And Value <> "."
End Function
作者: GBKEE    時間: 2015-5-28 15:06

回復 1# lionliu
  1. Set x = Application.WorksheetFunction.VLookup(Columns("A:A"), A!Columns("A:B"),
複製代碼
Set這關鍵字是將變數指定到物件時所用的
WorksheetFunction.VLookup 函數無法傳回一物件
作者: lionliu    時間: 2015-5-28 15:09

回復 2# jcchiang
謝謝 jc大大
測試後已經可以用了謝謝。
作者: lionliu    時間: 2015-5-28 15:36

回復 3# GBKEE
謝謝gb大大指導喔,若依我原來的寫法可行嗎,雖然jc大大的改法已可以順利抓到我要的資料了。




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)