حذف کردن انتخابی در اکسل

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • daneshmand

    • 2015/01/08
    • 7
    • 24.00
    #1

    [حل شده] حذف کردن انتخابی در اکسل

    سلام دوستان وقت بخیر
    میخوام یه ماکرو داشته باشم که از سلول a1 شروع کنه به سمت پایین وقتی که به کلمه lester رسید همه سطرهای قبلشو پاک کنه
    میشه راهنماییم کنید؟
    برچسب ها: هیچ‌کدام
    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67
      #2
      سلام
      از این کد استفاده کنید...!
      کد:
      Sub lester()
Range("a1").Select
For i = 1 To Range("a1").End(xlDown).Row
If Range("a" & i).Value = "lester" Then
Range("a1", "a" & i - 1).EntireRow.Delete
End If
Next
End Sub
      فایل های پیوست شده
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

        کامنت

        قبلی template بعدی
        چند لحظه..