Thien
Thành viên thường trực
- Tham gia
- 23/6/06
- Bài viết
- 352
- Được thích
- 113
Hi ! cả nhà
Mình có 1 sheet chứa khoảng 40.000 dòng, nhưng không liên tục, có lúc cách 5 dòng mới có dữ liệu, có lúc cách 30 dòng mới có dữ liệu.
Mình muốn bỏ tất cả các dòng không có dữ liệu với 3 cách sau:
1/ dùng macro:
2/ dùng macro:
3/chọn auto filler , chọn blanks để lọc ra các dòng không có dữ liệu rồi delete nhưng không được.
Mong các đại ca chỉ giáo
Xin đa tạ
Mình có 1 sheet chứa khoảng 40.000 dòng, nhưng không liên tục, có lúc cách 5 dòng mới có dữ liệu, có lúc cách 30 dòng mới có dữ liệu.
Mình muốn bỏ tất cả các dòng không có dữ liệu với 3 cách sau:
1/ dùng macro:
PHP:
Sub DeleteRowsThatLookEmptyinColA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual'
Dim rng As Range, ix As Long
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For ix = rng.Count To 1 Step -1
If Trim(Replace(rng.Item(ix).Text, _
Chr(160), Chr(32))) = "" Then
rng.Item(ix).EntireRow.Delete
End If
Next
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub2/ dùng macro:
PHP:
Sub DelEmptyRows()
Dim i As Long, iLimit As Long 'updated for XL2003 2006-01-31'
iLimit = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual'
For i = iLimit To 1 Step -1
If Application.CountA(Cells(i, 1).EntireRow) = 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
iLimit = ActiveSheet.UsedRange.Rows.Count 'attempt to fix lastcell'
ActiveWorkbook.Save
End SubMong các đại ca chỉ giáo
Xin đa tạ
Chỉnh sửa lần cuối bởi điều hành viên:
