VBAマクロスクリプト：VBAマクロを使用してシート1の列内の一意の値をシート2にコピーします。

Question

同じブック内に2枚のシートがあります。 "sheet1"と呼ばれるワークシートAと "sheet2"と呼ばれるワークシートB。シート1の列Aから重複ID番号の最大176080レコードがあります。この列からユニークなID番号を検索し、シートの任意の助けをいただければ幸い2.

の列Aにそれを貼り付ける必要があり、私は、VBAマクロに新しいですし、オンラインいくつかのコードを見つけたが、それを理解していません。私を助けてください、親切に、これをいくつかの説明で解決するための構文を提供してください。私自身もそれをやる方法を学ぶことができます。ありがとう!!

Answer 1

は少し複雑かもしれませんが、これは、列「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は、他のすべてのセルをループし、最初のシートからアクティブシートの最後のセルまでループします。番号は、複数のセルに等しい場合（uはまた、それ自身の値を有するセルをチェックするので、それは、オールウェイズ一つだ）数が列Eに表示されませんそしてそれは次の数値をとり、すべての数まで再び全てをループチェックされます。小規模な変更と数字が別のシートに表示されます。あなたのために働くことを願っています。