Hỗ trợ xử lý bài toán

[painynguyen88]

Như tiêu đề, hiện em đang có bài tập cần sắp xếp lại bảng excel với dữ liệu có sẵn thành 1 bảng excel mới.
Anh Chị có cao kiến giúp em với.

 

[anhtuan2939]

cần sắp xếp lại bảng excel với dữ liệu có sẵn

Đây bạn, cái này chắc bạn đã từng dùng qua

 

[Hoàng Tuấn 868]

Rất gấp ạ​

Như tiêu đề

Nên đọc lại Nội quy diễn đàn và sửa lại tiêu đề cho phù hợp.

 

[VetMini]

...
Nên đọc lại Nội quy diễn đàn và sửa lại tiêu đề cho phù hợp.

Bảo thớt cần đọc lại bài của mình nữa.
Câu đầu thì là bài tập. Câu cuối thì là "sếp sắp kill".
Tôi không hiểu "kill" là cái gì. Nhưng đoán chừng thì ở chỗ này có lệ sếp "kill" nhân viên làm bài tập. Và như vậy, có lẽ kill là kiêu/kêu.

 

[HieuCD]

Như tiêu đề, hiện em đang có bài tập cần sắp xếp lại bảng excel với dữ liệu có sẵn thành 1 bảng excel mới.
Anh Chị có cao kiến giúp em với. Sếp sắp kill e rồi

STT	Hạng mục	Trắng	Xanh	Đỏ	Vàng
1	Bò	Phase 1	Phase 1	Phase 1	Phase 1
2	Cừu	Phase 1	Phase 1	Phase 1	Phase 1
3	Heo	Phase 1	Phase 1	Phase 2	Phase 2
4	Gà	Phase 2	Phase 2	Phase 1	Phase 1
5	Chuột	Phase 1	Phase 1	Phase 2	Phase 1
6	Chim	Phase 1	Phase 1	Phase 1	Phase 1

Em muốn xếp thành hình như dưới ạ:

STT	Hạng mục	Phase 1	Phase 2
1	Trắng	Bò	Gà
2	Trắng	Cừu
3	Trắng	Chuột
4	Trắng	Chim
5	Xanh	Bò	Gà
6	Xanh	Cừu
	….

Lần sau nên gởi file

Sub ABC()
  Dim arr(), c(), res(), sRow&, sCol&, i&, j&, pha&, k&
 
  arr = Range("B2:F" & Range("B1000000").End(xlUp).Row).Value
  sRow = UBound(arr): sCol = UBound(arr, 2)
  ReDim res(1 To sRow * sCol, 1 To 4)
  For j = 2 To sCol
    ReDim c(1 To 2)
    For i = 2 To sRow
      pha = Right(arr(i, j), 1)
      c(pha) = c(pha) + 1
      res(k + c(pha), 1) = k + c(pha)
      res(k + c(pha), 2) = arr(1, j)
      res(k + c(pha), pha + 2) = arr(i, 1)
    Next i
    If c(1) > c(2) Then k = k + c(1) Else k = k + c(2)
  Next j
  Range("H3").Resize(UBound(res), 4) = res
End Sub

 

[painynguyen88]

Lần sau nên gởi file

Sub ABC()
  Dim arr(), c(), res(), sRow&, sCol&, i&, j&, pha&, k&
 
  arr = Range("B2:F" & Range("B1000000").End(xlUp).Row).Value
  sRow = UBound(arr): sCol = UBound(arr, 2)
  ReDim res(1 To sRow * sCol, 1 To 4)
  For j = 2 To sCol
    ReDim c(1 To 2)
    For i = 2 To sRow
      pha = Right(arr(i, j), 1)
      c(pha) = c(pha) + 1
      res(k + c(pha), 1) = k + c(pha)
      res(k + c(pha), 2) = arr(1, j)
      res(k + c(pha), pha + 2) = arr(i, 1)
    Next i
    If c(1) > c(2) Then k = k + c(1) Else k = k + c(2)
  Next j
  Range("H3").Resize(UBound(res), 4) = res
End Sub

Anh ơi, Anh có thể giúp em nếu cho thêm phase 3 và phase 4 hoặc giá trị rỗng bên trong bảng 1 thì đoạn code sẽ ntn dc k ạ?
Em xin đợi anh cho thêm hướng dẫn ạ.
Em k up đc file vì laptop chặn upload file ra ngoài .
Em cảm ơn a nhiều.

 

[painynguyen88]

Bảo thớt cần đọc lại bài của mình nữa.
Câu đầu thì là bài tập. Câu cuối thì là "sếp sắp kill".
Tôi không hiểu "kill" là cái gì. Nhưng đoán chừng thì ở chỗ này có lệ sếp "kill" nhân viên làm bài tập. Và như vậy, có lẽ kill là kiêu/kêu.

Vâng, em xin ghi nhận ý kiến của bác để việc tham gia diễn đàn k vi phạm thêm.
Còn khi đi làm thì em hay nói vui vui các công việc đc giao như bài tập, bài toán cần giải. Chứ cũng k phải là bài tập trong hàm ý là bài tập của sinh viên ạ .

 

[HieuCD]

Anh ơi, Anh có thể giúp em nếu cho thêm phase 3 và phase 4 hoặc giá trị rỗng bên trong bảng 1 thì đoạn code sẽ ntn dc k ạ?
Em xin đợi anh cho thêm hướng dẫn ạ.
Em k up đc file vì laptop chặn upload file ra ngoài .
Em cảm ơn a nhiều.

Tối đa 9 Phase

Sub ABC()
  Dim arr(), c(), res(), sRow&, sCol&, i&, j&, pha&, k&
  Const cp As Long = 9 'Toi da 9 Phase
 
  arr = Range("B2:F" & Range("B1000000").End(xlUp).Row).Value
  sRow = UBound(arr): sCol = UBound(arr, 2)
  ReDim res(1 To sRow * sCol, 1 To cp + 2)
  For j = 2 To sCol
    ReDim c(0 To cp)
    For i = 2 To sRow
      If arr(i, j) <> Empty Then
        pha = Right(arr(i, j), 1)
        c(pha) = c(pha) + 1
        res(k + c(pha), 1) = k + c(pha)
        res(k + c(pha), 2) = arr(1, j)
        res(k + c(pha), pha + 2) = arr(i, 1)
        If c(0) < c(pha) Then c(0) = c(pha)
      End If
    Next i
    k = k + c(0)
  Next j
  Range("H3").Resize(UBound(res), cp + 2) = res
End Sub

Lưu ý, theo nội quy của diễn đàn bạn không nên dùng từ viết tắt

 

[painynguyen88]

Tối đa 9 Phase

Sub ABC()
  Dim arr(), c(), res(), sRow&, sCol&, i&, j&, pha&, k&
  Const cp As Long = 9 'Toi da 9 Phase
 
  arr = Range("B2:F" & Range("B1000000").End(xlUp).Row).Value
  sRow = UBound(arr): sCol = UBound(arr, 2)
  ReDim res(1 To sRow * sCol, 1 To cp + 2)
  For j = 2 To sCol
    ReDim c(0 To cp)
    For i = 2 To sRow
      If arr(i, j) <> Empty Then
        pha = Right(arr(i, j), 1)
        c(pha) = c(pha) + 1
        res(k + c(pha), 1) = k + c(pha)
        res(k + c(pha), 2) = arr(1, j)
        res(k + c(pha), pha + 2) = arr(i, 1)
        If c(0) < c(pha) Then c(0) = c(pha)
      End If
    Next i
    k = k + c(0)
  Next j
  Range("H3").Resize(UBound(res), cp + 2) = res
End Sub

Lưu ý, theo nội quy của diễn đàn bạn không nên dùng từ viết tắt

Em cảm ơn a nhiều ạ. Chúc anh 1 ngày mới sức khỏe ạ!

 

[VetMini]

...
Còn khi đi làm thì em hay nói vui vui các công việc đc giao như bài tập, bài toán cần giải. Chứ cũng k phải là bài tập trong hàm ý là bài tập của sinh viên ạ .

Dóc.
Người thường làm bài thì cũng biết làm gần hết, chỉ hỏi một vài điểm bí.
Có đâu nhờ làm giùm từ đầu đến cuối, còn quýnh đít lên "gần chết đến nơi"

...Lưu ý, theo nội quy của diễn đàn bạn không nên dùng từ viết tắt

Nước đổ lá môn. . .