Xin cách xóa dòng trắng thừa

[Decepticon]

các bác chỉ e cách xóa dòng trắng ở file dưới với ạ, e xin cám ơn rất nhiều!

 

[phulien1902]

các bác chỉ e cách xóa dòng trắng ở file dưới với ạ, e xin cám ơn rất nhiều!

Bạn dùng code:

Sub abc()
    On Error Resume Next
    Sheets("Tien luong").Rows("1:500").AutoFit
    Sheets("Tien luong").Columns.AutoFit
End Sub

 

[Decepticon]

nhìn mãi mới ra file e 1m dòng, file bác 64k dòng nhưng e cần file còn 500 dòng cơ ạ
với lại e chạy macro của bác nhưng ko được (off 2010)

 

[phulien1902]

nhìn mãi mới ra file e 1m dòng, file bác 64k dòng nhưng e cần file còn 500 dòng cơ ạ
với lại e chạy macro của bác nhưng ko được (off 2010)

Vậy bạn muốn ẩn dòng? Ẩn từ dòng 501 tới 1.000.000 phải không?
Bạn thử với:

Sub abc2()
    Application.ScreenUpdating = False
    Sheets("Tienluong").Rows("501:1000000").EntireRow.Hidden = True
    Application.ScreenUpdating = True
End Sub

 

[Decepticon]

macro vẫn ko chạy được bác ạ, e chỉ muốn các sheet về như bt mà sao khó thế không biết

 

[phulien1902]

macro vẫn ko chạy được bác ạ, e chỉ muốn các sheet về như bt mà sao khó thế không biết

Trong File bạn chỉ có 1 Sheet, vậy dòng màu đỏ là thế nào?
Tôi không hiểu được ý của bạn.

 

[Decepticon]

file gốc của e có 8 sheet với các bảng tính khác nhau bác ợ
em tìm ra cái add-in này nhưng mà đắt quá
http://www.asap-utilities.com/asap-utilities-excel-tools-tip.php?tip=40&utilities=20&lang=en_us

ngoài ra còn 1 macro nữa có tác dụng clean cột nhưng ko clean được dòng

Sub DeleteUnused()
  

Dim myLastRow As Long
Dim myLastCol As Long
Dim wks As Worksheet
Dim dummyRng As Range


For Each wks In ActiveWorkbook.Worksheets
  With wks
    myLastRow = 0
    myLastCol = 0
    Set dummyRng = .UsedRange
    On Error Resume Next
    myLastRow = _
      .Cells.Find("*", after:=.Cells(1), _
        LookIn:=xlFormulas, lookat:=xlWhole, _
        searchdirection:=xlPrevious, _
        searchorder:=xlByRows).Row
    myLastCol = _
      .Cells.Find("*", after:=.Cells(1), _
        LookIn:=xlFormulas, lookat:=xlWhole, _
        searchdirection:=xlPrevious, _
        searchorder:=xlByColumns).Column
    On Error GoTo 0

    If myLastRow * myLastCol = 0 Then
        .Columns.Delete
    Else
        .Range(.Cells(myLastRow + 1, 1), _
          .Cells(.Rows.Count, 1)).EntireRow.Delete
        .Range(.Cells(1, myLastCol + 1), _
          .Cells(1, .Columns.Count)).EntireColumn.Delete
    End If
  End With
Next wks

End Sub

 

[Lê Duy Thương]

macro vẫn ko chạy được bác ạ, e chỉ muốn các sheet về như bt mà sao khó thế không biết

Việc này quá đơn giản không cần code két gì cả
xem file

 

[Decepticon]

Việc này quá đơn giản không cần code két gì cả
xem file

bác làm thế nào vậy ợ, đừng bảo e là copy bảng tính sang sheet mới nhá

 

[phulien1902]

file gốc của e có 8 sheet với các bảng tính khác nhau bác ợ
em tìm ra cái add-in này nhưng mà đắt quá
http://www.asap-utilities.com/asap-utilities-excel-tools-tip.php?tip=40&utilities=20&lang=en_us

Bạn chép cái dưới vào ThisWorkbook, ghi lại rồi mở File xem thế nào nhé

Private Sub Workbook_Open()
    Sheet1.ScrollArea = "A1:E470"
End Sub

 

[Lê Duy Thương]

bác làm thế nào vậy ợ, đừng bảo e là copy bảng tính sang sheet mới nhá

Xì nói vậy thì nói làm gì
xem này
1 chọn row500 ==> ctrl+shift+mũi tên đi xuống=right click-delete
2 chọn cột F ==> ctrl+shift+mũi tên sang phải=right click-delete
rồi kiểm tra nhé

 

[Decepticon]

e làm thế nhưng vẫn còn dư hơn 4000 dòng

 

[Lê Duy Thương]

e làm thế nhưng vẫn còn dư hơn 4000 dòng

BẠN NÓI THẾ NÀO CHỨ TÔI RECORD MACRO BẰNG TAY ĐÂY
BẠN DÙNG THỬ SẼ OK


Sub Macro1()
'
' Macro1 Macro
'


'
ActiveSheet.Columns("F:F").Select
Range(Selection, Selection.End(xlToRight)).Delete Shift:=xlToLeft
Rows("471:471").Select
Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
Cells.ClearComments
End Sub

 

[Decepticon]

cám ơn bác nhé, macro của bác chạy ngon còn Delete Shift bằng tay sẽ bị dư 4000 dòng.

nếu có add-in thì hay quá, vd nhập [F; 471] thì add-in sẽ xử lý sheet đang mở như macro của bác