Muốn đổi dãy hàng số thành dãy cột số thì làm sao?

[hovanhaict34]

Các cao thủ ơi, giúp mình với. Mình đang có một dãy số nằm ngang. Bây giờ mình muốn chuyển dãy số thành nằm dọc. MÌnh sẽ cám các Cao thủ rất nhiều !!!!

 

[anhtuan1066]

Nhiều cách lắm bạn à...
1> Dùng hàm TRANSPOSE nè... dãy ngang cũa bạn giã sử có 5 cell... từ A1 đến E1, vậy bạn quét chọn 5 cell dọc bất kỳ và gõ công thức:

=TRANSPOSE(A1:E1)

Gõ công thức xong bấm Ctrl + Shift + Enter
2> Công thức thường thì cã 1 trời luôn: Tại 1 cell bất kỳ gõ 1 trong các công thức dưới đây rồi kéo fill xuống dưới nhé:

=INDEX($A$1:$E$1,1,ROW(1:1))

=OFFSET($A$1,0,ROW(1:1)-1)

=INDIRECT(ADDRESS(1,ROW(1:1)))

vân vân và vân vân...
3> Nếu ko muốn dùng công thức thì có thể dùng chức năng Paste Special cũa Excel cũng dc... Quét chọn vùng cần copy, bấm Ctrl + C... chọn 1 cell cần Paste, click phải chuột, chọn Paste Special, check vào mục "Transpose" rồi OK
Mến
ANH TUẤN

 

[Duong gia]

Nhiều cách lắm bạn à... 1> Dùng hàm TRANSPOSE nè... dãy ngang cũa bạn giã sử có 5 cell... từ A1 đến E1, vậy bạn quét chọn 5 cell dọc bất kỳ và gõ công thức:

=TRANSPOSE(A1:E1)

Gõ công thức xong bấm Ctrl + Shift + Enter 2> Công thức thường thì cã 1 trời luôn: Tại 1 cell bất kỳ gõ 1 trong các công thức dưới đây rồi kéo fill xuống dưới nhé:

=INDEX($A$1:$E$1,1,ROW(1:1))

=OFFSET($A$1,0,ROW(1:1)-1)

=INDIRECT(ADDRESS(1,ROW(1:1)))

vân vân và vân vân... 3> Nếu ko muốn dùng công thức thì có thể dùng chức năng Paste Special cũa Excel cũng dc... Quét chọn vùng cần copy, bấm Ctrl + C... chọn 1 cell cần Paste, click phải chuột, chọn Paste Special, check vào mục "Transpose" rồi OK Mến ANH TUẤN

Bác Tuấn còn dùng VBA thì sao? Bác cho một VD bằng VBA đi. Cái này mà dùng VBA thì hay hơn . Thanks

 

[anhtuan1066]

Dùng VBA uh? Bạn tự record lấy 1 macro quá trình Paste Special là xong chứ gì.
Chẳng hạn là:

Sub CHUYEN()
   Dim Rng1 As Range, Rng2 As Range
   Set Rng1 = Application.InputBox("Chon vung can chuyen!", Type:=8)
   Set Rng2 = Application.InputBox("Chon 1 cell de xoay doc!", Type:=8)
   Rng1.Copy
   Rng2.PasteSpecial Paste:=xlPasteValues, Transpose:=True
   Application.CutCopyMode = False
End Sub

ANH TUẤN