CHUYỂN DỮ LIỆU VỀ MỘT CỘT (2 người xem)

[thanhvan1976]

Nhờ các bạn xem giúp mình file đính kèm chuyển hết dữ liệu về một cột, còn số liệu số không chuyển , thanks

 

[SA_DQ]

Sub ChuyenDuLieuChuoi()
 Dim Rng As Range, Cls As Range
 Dim W As Long
 
 Set Rng = [B2].CurrentRegion.Offset(1)
 ReDim Arr(1 To Rng.Cells.Count, 1 To 1)
 [F2].Resize(Rng.Cells.Count).Clear
 For Each Cls In Rng
    If IsNumeric(Cls.Value) Then
    Else
        W = W + 1:          Arr(W, 1) = Cls.Value
    End If
 Next Cls
 If W Then [F2].Resize(W).Value = Arr()
End Sub

 

[thanhvan1976]

Up

 

[thanhvan1976]

[/QUOTE]
bạn Sa cười gì tớ thế, giúp thì giúp luôn tớ đê

 

[BuiQuangThuan]

Thấy code ở trên rồi đó như anh. Ráp vào để sử dụng thôi

 

[vanaccex]

Nhờ các bạn xem giúp mình file đính kèm chuyển hết dữ liệu về một cột, còn số liệu số không chuyển , thanks

Bạn thử xem cách này

 

[thanhvan1976]

Bạn thử xem cách này

tớ copy dữ liệu nó bị lệch cột nên khó để tổng hợp dữ liệu, nên muốn chuyển về một cột để tính nó nó dễ hơn

Bài đã được tự động gộp: 5/4/22

Thấy code ở trên rồi đó như anh. Ráp vào để sử dụng thôi

code fake đấy

 

[BuiQuangThuan]

tớ copy dữ liệu nó bị lệch cột nên khó để tổng hợp dữ liệu, nên muốn chuyển về một cột để tính nó nó dễ hơn

Bài đã được tự động gộp: 5/4/22

code fake đấy

Dữ liệu thật nó như thế hả anh

Bài đã được tự động gộp: 5/4/22

code fake đấy

Là sao em chưa hiểu câu này lắm

 

[ptm0412]

code fake đấy

Bạn ăn nói cho cẩn thận. Code chạy ra đúng kết quả.
Ghi chú:
Tiêu đề viết hoa toàn bộ là vi phạm nội quy
Bài không có gì liên quan ngày tháng mà viết trong box ngày tháng là sai.
Viết bài chỉ 1 từ vô nghĩa (up) là vi phạm nội quy.

Tôi khóa chủ đề này lại.