VBA，環柱和複製單元格的格式，如果在另一列

值匹配我有一個excel工作表與2片VBA，環柱和複製單元格的格式，如果在另一列

sheet 2

我想是到環片1（A列）中的所有行和搜索該值是否存在表2列（e）['item_barcode']如果找到了我想將相同的高亮顯示覆制到sheet2！在事實上VBA

sheet 1

我不是好，我從來沒有使用過它，但我必須爲我的老闆做這個和這個Excel工作表中包含超過55K行的！有沒有辦法可以用vba完成？其他明智的我將不得不將xls轉換成mysql和php過程然後回到xls。：D！

來源

2013-01-07 Zalaboza

你不需要VBA爲。一個簡單的vlookup（）或index（）應該可以做到。 –

你能解釋一下嗎？可能會是一個很好的例子。 – Zalaboza

這應該做的伎倆：

Sub LoopAndHighlight() 

    Dim cl As Range 
    Dim RowNum As Integer 

    On Error Resume Next 

    For Each cl In Intersect(Sheets("Sheet1").Range("A:A"), Sheets("Sheet1").UsedRange) 
     RowNum = 0 
     RowNum = Application.WorksheetFunction.Match(cl.Value, Sheets("Sheet2").Range("E:E"), 0) 

     If RowNum <> 0 Then 
      cl.Interior.Color = Sheets("Sheet2").Range("E" & Application.WorksheetFunction.Match(cl.Value, Sheets("Sheet2").Range("E:E"), 0)).Interior.Color 
     End If 
    Next cl 

    End Sub

來源

2013-01-07 14:17:37

非常感謝，這很好，但由於某種原因，它從來沒有正確執行，在工作表1 9000行，但是當我運行宏只能對其中的4000個作品，並由於某種原因失敗休息！ – Zalaboza

問題用vlookup和過濾器解決了N/A，然後感謝 – Zalaboza

......奇怪它不適用於更多的行。無論哪種方式，很高興你的工作。 –

VBA，環柱和複製單元格的格式，如果在另一列

回答

相關問題