Các bro giúp mình về dãy số nhé (2 người xem)

[Darkness]

Các bro giúp mình về dãy số nhé (Đã chỉnh sửa)

Trong 1 sheet excel mình có các cột liên tiếp nhau nhưng mình muốn chuyển tất cả các cột đó thành 1 cột duy nhất thì phải làm thế nào? (Mình copy, paste bằng tay rất lâu mình muốn sử dụng thuật toán hay gì đó để nhanh hơn).
Cảm ơn các bạn đã giúp đỡ!!!
(Sorry vì ko tải được file đính kèm, upload lên ko được ) Copy paste rất mất thời gian, mình phải làm sao vì có rất nhiều bảng và cột! T.T
Các bạn vào đây download file excel dùm mình nhé vì trang chủ giaiphapexcel không upload được http://www.mediafire.com/download.php?mlz2nfzndhn

 

[cadafi]

Bạn giải thích rõ ràng bằng file đính kèm được không!? Mình đọc mà thực sự chưa hiểu ý bạn muốn gì!?
Mà sao bạn post bài nhiều chỗ vậy, cả ở đây nữa:
http://www.giaiphapexcel.com/forum/showthread.php?t=19780

 

[ChanhTQ@]

Vd
12 23 43 12 Kiểu kiểu thế này
23 21 45 ------------> 23
24 21 46 24
21 12 23 21
23
21
21
12
43
45
46
23

Bạn cần chép từ các cột 'B', 'C',. . . . sang cột 'A'
Trong ví dụ của bạn, bạn thêm cột 'D' làm cái vì dụ của bạn trờ thành rối mù; Thà bạn nói đại là CSDL của bạn có bao nhiêu cột & cần chép chúng vô cột mới toanh hay chép vô 1 trong số các cột đã có sẵn của bạn.
Bạn phải chú ý viết cho người khác hiểu đi nha; Mình cho rằng bạn cần phải được nhắc như vậy & đừng lấy làm buồn nha!

 

[ndu96081631]

Thử code này xem:

Sub Test()
  Dim Des As Range, i As Long
  With Application.InputBox("Chon vung du lieu nguon", Type:=8)
    Set Des = Application.InputBox("Chon cell dau tien dat du lieu", Type:=8)
    For i = 1 To .Columns.Count
      Des.Offset((i - 1) * (.Rows.Count)).Resize(.Rows.Count).Value = .Offset(, i - 1).Resize(, 1).Value
    Next
  End With
End Sub

Xem file đính kèm

 

[hiphopboy8x]

chả hiểu ý bác này, hay là muốn chuyển cột thành hàng?

Copy tất cả các cột - paste special/tranpose => xong

 

[ndu96081631]

chả hiểu ý bác này, hay là muốn chuyển cột thành hàng?

Copy tất cả các cột - paste special/tranpose => xong

Nghĩa là thế này:
- Copy từng cột trong bảng dử liệu gốc
- Paste nối đuôi chúng sang 1 nơi khác ---> Tức thành 1 cột duy nhất
Vậy làm sao mà tranpose được!
Bạn xem file đính kèm của tôi rồi chạy code sẽ hiểu ngay!

 

[vuquyen10693]

ơ, nếu coppy nối đuôi số như chủ pic sao mình không dùng concatenate nhỉ, vừa nhanh mà không phải dùng vba.
kiểu như =concatenate(a1,a2,a3)*1.