[حل شده] شمارش خاص و متفاوت با for تصویر پیوست گویاست

[mohammadi59m]

سلام و احترام خدمت اساتید
در فایل پیوست سطر اول و دوم ورود داده هاست و سطر سوم شمارش داده ها یا جواب است
می خواهیم با استفاده از for در شیت مشخص sheet1 داده سطر 2 را در سطر 1 بشمارد و در سطر 3 وارد کند
سپاس از همراهی و یاری تان

[M_ExceL]

سلام و احترام خدمت اساتید
در فایل پیوست سطر اول و دوم ورود داده هاست و سطر سوم شمارش داده ها یا جواب است
می خواهیم با استفاده از for در شیت مشخص sheet1 داده سطر 2 را در سطر 1 بشمارد و در سطر 3 وارد کند
سپاس از همراهی و یاری تان

سلام،
فایلتون پیوست نشده است، فایل با داده های بیشتری پیوست کنید.

[mohammadi59m]

[iranweld]

با سلام

کد ذیل را تست کنید

Sub test()

k1 = Cells(1, Columns.Count).End(xlToLeft).Column

k2 = Cells(2, Columns.Count).End(xlToLeft).Column

k3 = 1

Rows("3:3").ClearContents

For j = k2 + 1 To k1

If Cells(1, j) = Cells(2, k2) Then

Cells(3, k3) = j - k2

k3 = k3 + 1



End If

Next

For j = 1 To k2

If Cells(1, j) = Cells(2, k2) Then

Cells(3, k3) = j + k1 - k2

k3 = k3 + 1

End If

Next

End Sub 

[mohammadi59m]

با تشکر و سپاس فراوان از استاد iranweld