تعداد ستون ها زیاده و تعداد اسامی هم بالا و وقتی از این کد استفاده میکنم برنامه اکسل هنگ میکنه
Application.ScreenUpdating = False
Application.DisplayAlerts = False
z1 = Sheet2.Cells(Sheet2.Rows.Count, "b").End(xlUp).Row
Z2 = Sheet3.Cells(Sheet3.Rows.Count, "b").End(xlUp).Row
K = 2
For i = 2 To z1
For j = 2 To Z2
If Sheet2.Range("b" & i) = Sheet2.Range("b" & j) And Sheet3.Range("b" & i) <> 3 Then
Sheet4.Range("A" & K) = Sheet2.Range("A" & i)
Sheet4.Range("B" & K) = Sheet2.Range("B" & i)
Sheet4.Range("C" & K) = Sheet2.Range("C" & i)
Sheet4.Range("d" & K) = Sheet2.Range("d" & i)
Sheet4.Range("e" & K) = Sheet2.Range("e" & i)
Sheet4.Range("f" & K) = Sheet2.Range("f" & i)
Sheet4.Range("g" & K) = Sheet2.Range("g" & i)
Sheet4.Range("h" & K) = Sheet2.Range("h" & i)
Sheet4.Range("i" & K) = Sheet2.Range("i" & i)
Sheet4.Range("j" & K) = Sheet2.Range("j" & i)
Sheet4.Range("k" & K) = Sheet2.Range("k" & i)
Sheet4.Range("l" & K) = Sheet2.Range("l" & i)
Sheet4.Range("m" & K) = Sheet2.Range("m" & i)
Sheet4.Range("n" & K) = Sheet2.Range("n" & i)
Sheet4.Range("o" & K) = Sheet2.Range("o" & i)
Sheet4.Range("p" & K) = Sheet2.Range("p" & i)
Sheet4.Range("q" & K) = Sheet2.Range("q" & i)
Sheet4.Range("r" & K) = Sheet2.Range("r" & i)
Sheet4.Range("s" & K) = Sheet2.Range("s" & i)
Sheet4.Range("t" & K) = Sheet2.Range("t" & i)
Sheet4.Range("u" & K) = Sheet2.Range("u" & i)
Sheet4.Range("v" & K) = Sheet2.Range("v" & i)
K = K + 1
Sheet4.Range("A" & K) = Sheet3.Range("A" & i)
Sheet4.Range("B" & K) = Sheet3.Range("B" & i)
Sheet4.Range("C" & K) = Sheet3.Range("C" & i)
Sheet4.Range("d" & K) = Sheet3.Range("d" & i)
Sheet4.Range("e" & K) = Sheet3.Range("e" & i)
Sheet4.Range("f" & K) = Sheet3.Range("f" & i)
Sheet4.Range("g" & K) = Sheet3.Range("g" & i)
Sheet4.Range("h" & K) = Sheet3.Range("h" & i)
Sheet4.Range("i" & K) = Sheet3.Range("i" & i)
Sheet4.Range("j" & K) = Sheet3.Range("j" & i)
Sheet4.Range("k" & K) = Sheet3.Range("k" & i)
Sheet4.Range("l" & K) = Sheet3.Range("l" & i)
Sheet4.Range("m" & K) = Sheet3.Range("m" & i)
Sheet4.Range("n" & K) = Sheet3.Range("n" & i)
Sheet4.Range("o" & K) = Sheet3.Range("o" & i)
Sheet4.Range("p" & K) = Sheet3.Range("p" & i)
Sheet4.Range("q" & K) = Sheet3.Range("q" & i)
Sheet4.Range("r" & K) = Sheet3.Range("r" & i)
Sheet4.Range("s" & K) = Sheet3.Range("s" & i)
Sheet4.Range("t" & K) = Sheet3.Range("t" & i)
Sheet4.Range("u" & K) = Sheet3.Range("u" & i)
Sheet4.Range("v" & K) = Sheet3.Range("v" & i)
K = K + 1
End If
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)