Giúp em bỏ hàng trống và sắp xếp lại bảng!!

[N Khánh]

Em có bảng dữ liệu trong sheet1, em muốn bỏ hàng trống và sắp xếp lại để được kết quả như trong sheet output ạ. Trước nay em làm bằng tay vs số lượng nhiều rất mất công ạ. Giờ có cách nào để tự sắp xếp lại ngay trong sheet1 luôn ko ạ, em cảm ơn mọi người nhiều !!!

 

[snow25]

Em có bảng dữ liệu trong sheet1, em muốn bỏ hàng trống và sắp xếp lại để được kết quả như trong sheet output ạ. Trước nay em làm bằng tay vs số lượng nhiều rất mất công ạ. Giờ có cách nào để tự sắp xếp lại ngay trong sheet1 luôn ko ạ, em cảm ơn mọi người nhiều !!!

Đây bạn xem.

Sub sapxep()
Dim arr, arr1, arr2
Dim a As Long, i As Long, j As Long
With Sheet1
    arr = .Range("c11:x27").Formula
    arr2 = .Range("c11:c27").Value
    ReDim arr1(1 To UBound(arr, 1), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 1)
        If arr2(i, 1) <> Empty Then
        a = a + 1
           For j = 1 To 22
               arr1(a, j) = arr(i, j)
           Next j
        End If
    Next i
  .Range("c11:x27").ClearContents
 If a Then .Range("c11").Resize(a, 22).Formula = arr1
End With
End Sub

 

[N Khánh]

Đây bạn xem.

Sub sapxep()
Dim arr, arr1, arr2
Dim a As Long, i As Long, j As Long
With Sheet1
    arr = .Range("c11:x27").Formula
    arr2 = .Range("c11:c27").Value
    ReDim arr1(1 To UBound(arr, 1), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 1)
        If arr2(i, 1) <> Empty Then
        a = a + 1
           For j = 1 To 22
               arr1(a, j) = arr(i, j)
           Next j
        End If
    Next i
  .Range("c11:x27").ClearContents
If a Then .Range("c11").Resize(a, 22).Formula = arr1
End With
End Sub

Chuẩn rồi bạn ạ ^^ mình nhờ bạn xíu vs nha, liệu sau khi sắp xếp cái đường kẻ border nó cũng thu sát đến giá trị cuối cùng giống bên output đc không nhỉ ^^

 

[N Khánh]

nhờ mọi người giúp em nốt cái đường border cho giống bên output với ạ. Em cảm ơn mọi người nhiều !!!

 

[SA_DQ]

Xin fép SNow25 nghen; Tác giả bài đăng thử với cái ni:

Sub SapXep()
Dim Arr, Arr1, Arr2
Dim W As Long, I As Long, J As Long
With Sheet1
    Arr = .Range("c11:x27").Formula
    Arr2 = .Range("c11:c39").Value
    ReDim Arr1(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
    For I = 1 To UBound(Arr, 1)
        If Arr2(I, 1) <> Empty Then
        W = W + 1
           For J = 1 To 22
               Arr1(W, J) = Arr(I, J)
           Next J
        End If
    Next I
  .Range("c11:x39").ClearContents
If W Then .Range("c11").Resize(W, 22).Formula = Arr1
Range("A" & (11 + W) & ":X39").Clear             'GPE.COM    '
End With
End Sub

 

[N Khánh]

Xin fép SNow25 nghen; Tác giả bài đăng thử với cái ni:

Sub SapXep()
Dim Arr, Arr1, Arr2
Dim W As Long, I As Long, J As Long
With Sheet1
    Arr = .Range("c11:x27").Formula
    Arr2 = .Range("c11:c39").Value
    ReDim Arr1(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
    For I = 1 To UBound(Arr, 1)
        If Arr2(I, 1) <> Empty Then
        W = W + 1
           For J = 1 To 22
               Arr1(W, J) = Arr(I, J)
           Next J
        End If
    Next I
  .Range("c11:x39").ClearContents
If W Then .Range("c11").Resize(W, 22).Formula = Arr1
Range("A" & (11 + W) & ":X39").Clear             'GPE.COM    '
End With
End Sub

Em cảm ơn cả 2 bác nhiều lắm ^^

 

[N Khánh]

@snow25 @SA_DQ em muốn hỏi là liệu có làm đc 1 cái undo để phòng trường hợp mình chỉnh sửa sai không ạ !!!

 

[snow25]

@snow25 @SA_DQ em muốn hỏi là liệu có làm đc 1 cái undo để phòng trường hợp mình chỉnh sửa sai không ạ !!!

Undo là gì nhỉ bạn .

 

[SA_DQ]

@snow25[/USER] @SA_DQ em muốn hỏi là liệu có làm đc 1 cái undo để phòng trường hợp mình chỉnh sửa sai không ạ!

Thì chọn 1 sân đủ kích thước& đáp dữ liệu xuống đó trước; Sau đó chép lên Form nếu kiểm tra thấy ưng ý.

 

[N Khánh]

Undo là gì nhỉ bạn .

Thì chọn 1 sân đủ kích thước& đáp dữ liệu xuống đó trước; Sau đó chép lên Form nếu kiểm tra thấy ưng ý.

^^ tại trước em thấy người ta có 2 cái button thế này

 

[snow25]

^^ tại trước em thấy người ta có 2 cái button thế này

Cái này chỉ là nó Autofinte thôi.Thì nó sẽ trở lại như cũ được.Còn của bạn là bỏ luôn dòng trống đi mà.

 

[N Khánh]

Cái này chỉ là nó Autofinte thôi.Thì nó sẽ trở lại như cũ được.Còn của bạn là bỏ luôn dòng trống đi mà.

Dạ vâng, code thế này là đúng ý quá rồi ạ ^^