2016-04-14 12 views
-2

Aynı çalışma kitabında 2 sayfa var. Çalışma sayfası A "sheet1" ve çalışma sayfası B "sheet2" denir. 1 sayfasındaki A sütunundan 176080 adete kadar çoğaltılmış ID numarası kaydı vardır. Bu sütundan benzersiz ID numaralarını bulup sayfa 2'nin A sütununa yapıştırın.VBA makro komut dosyası: vba makrosu kullanarak sayfa 1'deki bir sütun içindeki benzersiz değerleri bulun ve kopyalayın.

Herhangi bir yardım, VBA makrosunda yeniyim ve bazı kodları çevrimiçi buldum ama anlamıyorum. Lütfen bana yardımcı olun ve bunu bazı açıklamalarla çözmek için bir sözdizimi sağlayın, böylece kendi başıma nasıl yapacağımı öğrenebilirim. Teşekkürler!!

+1

Excel'de kayıt makro özelliğini kullanabilirsiniz. Kaydı başlat, ne yapmak istiyorsan onu yap, ve senin için yaptığın şeyin bir makrosu olacak. Öneriniz için – nhouser9

+0

teşekkürler. –

cevap

0

Biraz karmaşık olabilir, ancak bu, "A" sütununda benzersiz sayıları geri verir.

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 

ilk alt aktif çizelgesinde son hücreye birinci başlayarak tüm diğer hücrelere A1 ile daha sonra döngüler hücre alır. Eğer bir sayı birden fazla hücresine eşitse (her şey birdir, çünkü hücreyi kendi değeriyle kontrol etmelisiniz), sayı E sütununda gösterilmeyecektir. Ardından, bir sonraki sayıyı alır ve her sayıya kadar tekrar tekrar döngüler alır. kontrol edilir. Küçük değişiklikler ve sayılar diğer sayfada gösterilecektir. Umarım senin için çalışır.

+0

Sözdizimi ve açıklaması için çok teşekkürler. Bu kod gerçekten yardımcı oldu! Tekrar teşekkürler. –