quick87
(/ội...
- Tham gia
- 8/4/08
- Bài viết
- 375
- Được thích
- 351
- Giới tính
- Nam
Thử code này xem có dùng được không.
[gpecode=vb]
Sub XoaFile()
Dim I As Long, Rng As Range
Set Rng = Range("A1:A" & Range("A65535").End(3).Row)
For I = 1 To Rng.Rows.Count
If Rng(I).Offset(, 3) = "x" Then
Kill Cells(I, 1).Value
End If
Next I
End Sub
[/gpecode]
Bạn hiền bữa nay nghiên cứu code dữ hén.Thử code này xem có dùng được không.
[gpecode=vb]
Sub XoaFile()
Dim I As Long, Rng As Range
Set Rng = Range("A1:A" & Range("A65535").End(3).Row)
For I = 1 To Rng.Rows.Count
If Rng(I).Offset(, 3) = "x" Then
Kill Cells(I, 1).Value
End If
Next I
End Sub
[/gpecode]
Đang tập mấy bài đơn giản, post lên để các Thầy sửa giúp.Bạn hiền bữa nay nghiên cứu code dữ hén.
Code trên có thể viết lại thế này, gọn hơn được một chút:
[GPECODE=vb]Sub XoaFile()
Dim Rng As Range
For Each Rng In [A1].CurrentRegion.Resize(, 1)
If Rng.Offset(, 3) = "x" Then Kill Rng.Value
Next
End Sub[/GPECODE]
[A1].CurrentRegion.Resize(, 1) có thể thay bởi Intersect([A1].CurrentRegion, [A2:A10000]) hoặc cụ thể hơn thì thêm tên sheet vào trước địa chỉ ô nữa cho chắc.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2