حذف سلول های خالی با ماکرو

[mahdi2013]

سلام
چگونه سلول های خالی را با ایجاد ماکرو حذف کنیم؟
در زیر در ستون آ اطلاعاتی ذخیره شده که ما بین ان سلول خالی نیز وجود دارد .
چگونه میشود همان اطلاعات را در ستون ب به همان ترتیب ذخیره کرد که سلول های خالی حذف شده باشند ؟
ضمنا با کد نه با دستور find blank

[rasools13]

فایل رو پیوست نکردین دوست عزیز

[mahdi2013]

سلام
چگونه سلول های خالی را با ایجاد ماکرو حذف کنیم؟
در زیر در ستون آ اطلاعاتی ذخیره شده که ما بین ان سلول خالی نیز وجود دارد .
چگونه میشود همان اطلاعات را در ستون ب به همان ترتیب ذخیره کرد که سلول های خالی حذف شده باشند ؟
ضمنا با کد نه با دستور find blank

[mahdi2013]

این فایل

[mahdi2013]

در فایل هایی با اطلاعات زیاد و سطر های متعدد نمی شود از خود بلانک اکسل استفاده کرد . دنبال راهی برای سریع تر انجام دادن ان هستم.

[rasools13]

در فایل هایی با اطلاعات زیاد و سطر های متعدد نمی شود از خود بلانک اکسل استفاده کرد . دنبال راهی برای سریع تر انجام دادن ان هستم.

سلام
فایل پیوست رو بررسی کنید
با کلیک روی دکمه و وارد کردن تعداد ردیف ها کد ذیل اجرا شده و نتیجه در ستون B وارد می شود

Private Sub btn1_Click()
    Dim rowNum, i, j As Integer
    rowNum = CInt(txt1.Text)
    j = 1
    For i = 1 To rowNum Step 1
        If Cells(i, 1) <> "" Then
            Cells(j, 2) = Cells(i, 1)
            j = j + 1
        End If
    Next
    UserForm1.Hide
End Sub 

[mahdi2013]

ممنون
یه مسئله ای هست که تعداد سطرهای بیشتر از 100000 را ارور میده. من یه جدولی دارم که واژه ها بیشتر از 1.000.000 سطر هست.

[rasools13]

ممنون
یه مسئله ای هست که تعداد سطرهای بیشتر از 100000 را ارور میده. من یه جدولی دارم که واژه ها بیشتر از 1.000.000 سطر هست.

بله چقدر هم زیاد.. فایل رو اصلاحاتی دادم... میتونید برای راحتی کار هر بار قسمتی از ردیف ها رو بررسی کنید مثلا 50 هزار
مثال مرتبه اول از ردیف 1 تا 50000
و در مرتبه دوم از ردیف 50001 تا 100000
و الی آخر
ولی نتیجه همه در ستون b قرار میگیره

[Ali Parsaei]

سلام،
لطفا" سوالات در مورد کدنويسي را در قسمت ويژال بيسيک مطرح بفرماييد.
در مورد سوالتان هم مي توانيد از اين کد استفاده نماييد:

Sub Macro1()
    Application.ScreenUpdating = False
    Range("A:A").Select
    Selection.AutoFilter
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="<>"    
Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.DELETE Shift:=xlToLeft
    Application.ScreenUpdating = True
End Sub 

[mahdi2013]

به نظرم هدف از کدنویسی و ماکرو اینه که کارهای تکراری توسط کاربر حذف بشه .
اینجوری که باید دوباره تکرار کرد و خیلی زمان میبره . لطفا یه راه حل مناسب تر عنایت بفرمایید.
با تشکر

[Ali Parsaei]

به نظرم هدف از کدنویسی و ماکرو اینه که کارهای تکراری توسط کاربر حذف بشه .
اینجوری که باید دوباره تکرار کرد و خیلی زمان میبره . لطفا یه راه حل مناسب تر عنایت بفرمایید.
با تشکر

درست مي فرماييد، البته اگر صحيح تر بخواهيم بيان کنيم بايد گفت که کارهاي تکراري خلاصه سازي مي گردد و مثلا" به جاي اينکه 20 تا عمل را هر روز تکرار کنيد فقط يک دگمه را در روز را فشار مي دهيد.