[حل شده] فایل پیوست یک کد اماده هست ایا می شود سطر 2 در sheet1 حذف شود یا خلاصه شود

[mohammadi59m]

سلام و عرض ادب خدمت اساتید
در خلاصه ساختن کد اگر ممکن است یاری بفرمایید
سطر اول دارای داده عددی نامرتب از نظر فاصله در سلولها است (مثالش در فایل ضمیمه هست)
می خواهم در سطر دوم فاصله سلولی بین سلولهای سطر را برداریم و سطر دوم اگر ممکن باشد حذف شود استفاده از for و مشخص بودن sheet1 داخل کد ضرورت دارد
فایل پیوست را لطفا تست بفرمایید

[iranweld]

با سلام

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

Sub test()

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

t = 1

For j = 1 To k1

If Sheet1.Cells(1, j) <> "" Then

Sheet1.Cells(1 + 1, t) = Sheet1.Cells(1, j)

t = t + 1

End If

Next

End Sub 

[mohammadi59m]

سلام تشکر فراوان بسیار عالی بود