VBA宏腳本：查找和使用VBA宏

-2

我具有相同的工作簿中2片材在片材1一列內複製的唯一值到片材2。在名爲「sheet1」的工作表A和名爲「sheet2」的工作表B中。從表1的A欄可以得到多達176080個重複ID號的記錄。需要從本專欄找到唯一的ID號，並將其粘貼到表2.VBA宏腳本：查找和使用VBA宏

任何幫助，將不勝感激的A列，我是新來的VBA宏，發現了一些代碼網上，但不明白。請幫助我，並提供一些語法來解決這個問題，並提供一些解釋，以便我可以學習如何自行完成。謝謝！！

來源

2016-04-14 Silver Ripple

在excel中，您可以簡單地使用記錄宏功能。開始錄製，做任何你想做的事情，它會把你剛剛爲你做的事宏觀化。 – nhouser9

感謝您的建議。 –

可能有點複雜，但是這給後面的識別號欄「A」。

Option Explicit 
Dim i, j, count, lastrow As Integer 
Dim number As Long 

Sub find_unique() 
    lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 
    For i = 1 To lastrow 
     number = Cells(i, 1) 
     For j = 1 To lastrow 
      If number = Cells(j, 1) Then 
       count = count + 1 
      End If 
     Next j 
    If count = 1 Then 
     Cells(i, 5) = number 
    Else 
     Cells(i, 5) = "" 
    End If 
    count = 0 
    Next i 
End Sub

首先子發生單元格A1然後循環通過所有其它的細胞，從第一個，在活動表的最後一個單元。如果一個數字等於多於一個單元格（它總是一個單元格，因爲你也使用它自己的值來檢查單元格），那麼這個數字將不會顯示在E列中。然後它將取下一個數字並遍歷所有數字，直到每個數字被檢查。小的變化和數字將顯示在另一張表中。希望對你有效。

來源

2016-04-14 07:22:29 Thomas

非常感謝您的語法和解釋。這段代碼真的有幫助!!再次感謝。 –

VBA宏腳本：查找和使用VBA宏

回答

相關問題