Làm sao trả dữ liệu về dạng Text (1 người xem)

[Quang_Hải]

Trong file đính kèm, sau khi xử lý mình muốn cột C của sheets "Da Xu Ly" là dạng Text nhưng không biết làm cách nào. Nếu xử lý trên range thì được nhưng nếu đưa dữ liệu vào mảng ketqua rồi gán xuống sheet thì không thể giữ lại định dạng

Sub tach()
Application.ScreenUpdating = False
Dim dulieu, i, ii, j, ketqua
   ActiveSheet.[a:h].Copy
      With Sheets("Da Xu Ly")
         .[a:a].PasteSpecial 1
         dulieu = .Range(.[a9], .[a65536].End(3)).Resize(, 8).Value
      End With
   ReDim ketqua(1 To UBound(dulieu) * 2, 1 To 8)
For i = 1 To UBound(dulieu)
   For j = 1 To 8
      ketqua(ii + 1, j) = dulieu(i, j)
   Next
      ketqua(ii + 2, 5) = dulieu(i, 6)
      ketqua(ii + 2, 6) = dulieu(i, 5)
      ketqua(ii + 2, 8) = dulieu(i, 7)
      ii = ii + 2
Next
Sheets("Da Xu Ly").[a9].Resize(ii, 8) = ketqua
Application.ScreenUpdating = True
End Sub

 

[vodoi2x]

Trong file đính kèm, sau khi xử lý mình muốn cột C của sheets "Da Xu Ly" là dạng Text nhưng không biết làm cách nào. Nếu xử lý trên range thì được nhưng nếu đưa dữ liệu vào mảng ketqua rồi gán xuống sheet thì không thể giữ lại định dạng

thì chỉ cần thêm dòng đỏ sau, trước khi gán kết quả

Sub tach()
Application.ScreenUpdating = False
Dim dulieu, i, ii, j, ketqua
   ActiveSheet.[a:h].Copy
      With Sheets("Da Xu Ly")
         .[a:a].PasteSpecial 1
         dulieu = .Range(.[a9], .[a65536].End(3)).Resize(, 8).Value
      End With
   ReDim ketqua(1 To UBound(dulieu) * 2, 1 To 8)
For i = 1 To UBound(dulieu)
   For j = 1 To 8
      ketqua(ii + 1, j) = dulieu(i, j)
   Next
      ketqua(ii + 2, 5) = dulieu(i, 6)
      ketqua(ii + 2, 6) = dulieu(i, 5)
      ketqua(ii + 2, 8) = dulieu(i, 7)
      ii = ii + 2
Next
[COLOR="#FF0000"]Sheets("Da Xu Ly").[C9].Resize(ii).NumberFormat = "@"[/COLOR]
Sheets("Da Xu Ly").[a9].Resize(ii, 8) = ketqua
Application.ScreenUpdating = True
End Sub

 

[Quang_Hải]

thì chỉ cần thêm dòng đỏ sau, trước khi gán kết quả

Phải công nhận đối với người biết thì chỉ cần 1 dòng lệnh trong nháy mắt, với người không biết thì mò mẫm cả ngày.

 

[vodoi2x]

Phải công nhận đối với người biết thì chỉ cần 1 dòng lệnh trong nháy mắt, với người không biết thì mò mẫm cả ngày.

Cũng mò mẫm cả thôi, tại bác cao siêu quá nên nghĩ cao, vodoi2x chỉ ghi macro thường là nó ra lệnh đó, copy paste xong