Nhờ mọi người giúp đỡ về cách sắp xếp trong excel

[uyento]

Chào mọi người, mình đang gặp một vấn đề nhờ mọi người tư vấn cách giải quyết với ạ.
mình có 1 file excel gồm nhiều số liệu và giờ mình muốn sắp xếp lại như trong hình thì làm như thế nào là hiệu quả và nhanh nhất ạ, thank mọi người!

​

 

[giaiphap]

Bạn dùng thử code này xem sao.

Sub GPE()
Dim Arr(), dArr(), cel As Range, vung As Range, i As Integer, j As Integer, k As Integer
Arr = Range("A3:A" & Range("A3").End(xlDown).Row).Resize(, 3).Value
k = 0
ReDim dArr(1 To UBound(Arr, 1) * UBound(Arr, 2))
  For i = 1 To UBound(Arr, 1)
      For j = 1 To UBound(Arr, 2)
        k = k + 1
        dArr(k) = Arr(i, j)
      Next j
  Next i
  Range("H3").Resize(k) = Application.Transpose(dArr)
End Sub

 

[uyento]

Bạn dùng thử code này xem sao.

Sub GPE()
Dim Arr(), dArr(), cel As Range, vung As Range, i As Integer, j As Integer, k As Integer
Arr = Range("A3:A" & Range("A3").End(xlDown).Row).Resize(, 3).Value
k = 0
ReDim dArr(1 To UBound(Arr, 1) * UBound(Arr, 2))
  For i = 1 To UBound(Arr, 1)
      For j = 1 To UBound(Arr, 2)
        k = k + 1
        dArr(k) = Arr(i, j)
      Next j
  Next i
  Range("H3").Resize(k) = Application.Transpose(dArr)
End Sub

Cám ơn bạn, nhưng code này các giá trị là sắp xếp theo lần lượt mình muốn nó sắp xếp 3 cái xuôi đến 3 cái ngược, như 1,2,3,6,5,4.

 

[giaiphap]

Cám ơn bạn, nhưng code này các giá trị là sắp xếp theo lần lượt mình muốn nó sắp xếp 3 cái xuôi đến 3 cái ngược, như 1,2,3,6,5,4.

Bạn nói mình chưa hiểu ý.

 

[dhn46]

Bạn nói mình chưa hiểu ý.

Tức là:

Hàng 1: từ trái qua phải
Hàng 2: từ phải qua trái
Hàng 3: từ trái qua phải
Hàng 4: từ phải qua trái
...............................

đó bạn. Thế nào cũng có phát sinh ^^.

 

[uyento]

Tức là:

Hàng 1: từ trái qua phải
Hàng 2: từ phải qua trái
Hàng 3: từ trái qua phải
Hàng 4: từ phải qua trái
...............................

đó bạn. Thế nào cũng có phát sinh ^^.

Đúng như thế này đây bạn, vì dữ liệu của nó nhiều tầm hơn 10k dòng và giờ mình phải sắp xếp lại theo như thế.

 

[giaiphap]

Đúng như thế này đây bạn, vì dữ liệu của nó nhiều tầm hơn 10k dòng và giờ mình phải sắp xếp lại theo như thế.

Vậy bạn sửa lại thế này vậy.

Sub GPE()
Dim Arr(), dArr(), cel As Range, vung As Range, i As Integer, j As Integer, k As Integer
Arr = Range("A3:A" & Range("A3").End(xlDown).Row).Resize(, 3).Value
k = 0
ReDim dArr(1 To UBound(Arr, 1) * UBound(Arr, 2))
  For i = 1 To UBound(Arr, 1)
      If i Mod 2 = 1 Then
      For j = 1 To UBound(Arr, 2)
        k = k + 1
        dArr(k) = Arr(i, j)
      Next j
      Else
       For j = UBound(Arr, 2) To 1 Step -1
          k = k + 1
          dArr(k) = Arr(i, j)
      Next j
      End If
  Next i
  Range("H3").Resize(k) = Application.Transpose(dArr)
End Sub

 

[uyento]

được rồi bạn, cám ơn bạn rất nhiều