Nối chuỗi cột với dòng (1 người xem)

Sputnhik · 12/10/23

Nhờ các bác trên diễn đàn giúp nỗi chuỗi cột với dòng. Xin cảm ơn

	B1	B2	B3	B4	Kết quả mong muốn
A1					A1*B1
A2					A1*B2
A3					A1*B3
A4					A1*B4
A5					A2*B1
A6					A2*B2
A7					A2*B3
A8					A2*B4
A9					A3*B1
A10					A3*B2
A11					A3*B3
A12					A3*B4
A13					…
A14
A15
A16
A17
A18

cantl · 12/10/23

Ứng dụng "Hàm mod trả về số chia nếu chia chẵn".
=INDEX($A$3:$A$20&"*"&($B$2:$E$2);INT((COUNTA($G$2:G2)-1)/COUNTA($B$2:$E$2))+1;MOD(ROW()+ROW($G$2)-1;4)+1)

huuthang_bd · 12/10/23

Khai thật đi, mục đích cuối cùng của bạn là gì?

cantl · 12/10/23

huuthang_bd đã viết:
Khai thật đi, mục đích cuối cùng của bạn là gì?

Em hay tác giả bác nhỉ? _)()(-

huuthang_bd · 12/10/23

cantl đã viết:
Em hay tác giả bác nhỉ?

Tôi nói chủ topic.

Với câu hỏi ở bài 1 thì tôi e đây chỉ là bước trung gian của một sáng kiến nào đó.

VetMini · 12/10/23

huuthang_bd đã viết:
Khai thật đi, mục đích cuối cùng của bạn là gì?

Mục đích của thớt: thử nghiệm sáng kiến.
Mục đích của người viết công thức: thử nghiệm độ hiểu của mình đối với câu hỏi, và thử nghiệm trình độ công thức của mình.

cantl · 12/10/23

VetMini đã viết:
Mục đích của người viết công thức

Ứng dụng lý thuyết mới học vào thực tiễn bác ạ.

cantl · 12/10/23

Nhớ ngày xưa bác ptm có bài chuyển cột thành bảng gì đó (em không biết tìm lại bằng từ khóa gì), mà lúc đó em chưa biết cách mod nên sửa lung tung. Giờ thì lập công thức hơi bị logic đấy. --=0

LmoovoenX · 12/10/23

cantl đã viết:
Nhớ ngày xưa bác ptm có bài chuyển cột thành bảng gì đó (em không biết tìm lại bằng từ khóa gì), mà lúc đó em chưa biết cách mod nên sửa lung tung. Giờ thì lập công thức hơi bị logic đấy.

Bạn thử chuyển từ bảng A sang cột B xem sao.

Dữ liệu mình để số cho dễ nhìn, chứ thực tế nó là chữ nhé.

cantl · 12/10/23

LmoovoenX đã viết:
Bạn thử chuyển từ bảng A sang cột B xem sao.
View attachment 295641
Dữ liệu mình để số cho dễ nhìn, chứ thực tế nó là chữ nhé.

Chịu, phải suy nghĩ mới được.

cantl · 12/10/23

LmoovoenX đã viết:
Bạn thử chuyển từ bảng A sang cột B xem sao.
View attachment 295641
Dữ liệu mình để số cho dễ nhìn, chứ thực tế nó là chữ nhé.

Ra được cột nhưng đòi bỏ số 0 đi thì không thể trong 1 công thức được. Đố khó nhẩy.

LmoovoenX · 12/10/23

cantl đã viết:
Ra được cột nhưng đòi bỏ số 0 đi thì không thể trong 1 công thức được. Đố khó nhẩy.

Bạn phải dùng thêm hàm Aggregate nữa cơ.

Sputnhik · 12/10/23

Dạ cảm ơn các bác, trong lúc mày mò diễn đàn cũng thẩm thêm được code của bác ndu, cũng nhóm lần lượt 1 dòng và 1 cột. Mà hok biết nếu thêm dấu * xem kẽ vào giữa thì sửa code ntn thế này thế nào ạ.

Option Explicit
Function Combin2Arr(sArray1, sArray2)
Dim TmpArr1, TmpArr2, Item1, Item2, Arr(), i As Long
TmpArr1 = sArray1: TmpArr2 = sArray2
For Each Item1 In TmpArr1
If Trim(CStr(Item1)) <> "" Then
For Each Item2 In TmpArr2
If Trim(CStr(Item2)) <> "" Then
ReDim Preserve Arr(i)
Arr(i) = CStr(Item1) & CStr(Item2)
i = i + 1
End If
Next
End If
Next
Combin2Arr = Arr
End Function
Sub Main()
Dim sArray1, sArray2, Arr, lRow As Long
On Error Resume Next
sArray1 = Range("A1:A260")
sArray2 = Range("B1:B105")
Arr = Combin2Arr(sArray1, sArray2)
lRow = UBound(Arr) + 1
If lRow > Cells.Rows.Count Then lRow = Cells.Rows.Count
Range("D1").Resize(lRow) = WorksheetFunction.Transpose(Arr)
End Sub

cantl · 12/10/23

Sputnhik đã viết:
Dạ cảm ơn các bác, trong lúc mày mò diễn đàn cũng thẩm thêm được code của bác ndu, cũng nhóm lần lượt 1 dòng và 1 cột. Mà hok biết nếu thêm dấu * xem kẽ vào giữa thì sửa code ntn thế này thế nào ạ.

Không dùng công thức được à? Phải code à? Vậy mục đích thật là gì là đúng rồi. _)()(-

Sputnhik · 13/10/23

cantl đã viết:
Không dùng công thức được à? Phải code à? Vậy mục đích thật là gì là đúng rồi.

Em vọc thêm thui, công thức là đủ xài, muốn xài vba em post ở mục vba chứ.

cantl · 13/10/23

Sputnhik đã viết:
Dạ cảm ơn các bác, trong lúc mày mò diễn đàn cũng thẩm thêm được code của bác ndu, cũng nhóm lần lượt 1 dòng và 1 cột. Mà hok biết nếu thêm dấu * xem kẽ vào giữa thì sửa code ntn thế này thế nào ạ.

Thêm dấu thôi.
Arr(i) = CStr(Item1) & "*" & CStr(Item2)

Hoàng Tuấn 868 · 13/10/23

cantl đã viết:
Thêm dấu thôi.
Arr(i) = CStr(Item1) & "*" & CStr(Item2)

Cứ tưởng mỗi đoạn code phải mất từ 2 đến 3 tháng mà vụ này nhanh thế nhỉ.

LmoovoenX · 13/10/23

Hoàng Tuấn 868 đã viết:
Cứ tưởng mỗi đoạn code phải mất từ 2 đến 3 tháng mà vụ này nhanh thế nhỉ.

Chắc mất công suy nghĩ đặt tên biến đó mà.

cantl · 13/10/23

Hoàng Tuấn 868 đã viết:
Cứ tưởng mỗi đoạn code phải mất từ 2 đến 3 tháng mà vụ này nhanh thế nhỉ.

Thức cả đêm mới ra được đấy. --=0

huuthang_bd · 13/10/23

cantl đã viết:
Ra được cột nhưng đòi bỏ số 0 đi thì không thể trong 1 công thức được. Đố khó nhẩy.

Vầy thôi

Mã:

=TOCOL(B2:E5,1,1)

.
.
.
.

le_vis · 13/10/23

huuthang_bd

Chuyên gia GPE

Tôi chạy Win10, Office 2010 =TOCOL(B2:E5;1;1) = #NAME?

Xin hỏi với Win10, Office 2010 thì phải dùng hàm nào ???

cantl · 13/10/23

huuthang_bd đã viết:
Vầy thôi

Mã:

=TOCOL(B2:E5,1,1)

.
.
.
.

Hehe, không dùng hàng mới bác ạ. TOCOL này có thể xem là hàm UDF với office cũ rồi. Em dùng đến tận 2021 mà cũng bó tay với hàm này.
Nhà giàu được MS ưu ái quá.

huuthang_bd · 13/10/23

le_vis đã viết:
huuthang_bd
Chuyên gia GPE
Tôi chạy Win10, Office 2010 =TOCOL(B2:E5;1;1) = #NAME?
Xin hỏi với Win10, Office 2010 thì phải dùng hàm nào ???

Office 2010 thì bạn có thể thử công thức này.

Mã:

=INDIRECT("R"&MID(REPT(TEXT(AGGREGATE(15,6,ROW($B$2:$E$5)/1000+COLUMN($B$2:$E$5)/($B$2:$E$5<>""),ROW(A1)),"000.000\C"),2),5,7),0)

le_vis · 13/10/23

huuthang_bd đã viết:
Office 2010 thì bạn có thể thử công thức này.

Mã:

=INDIRECT("R"&MID(REPT(TEXT(AGGREGATE(15,6,ROW($B$2:$E$5)/1000+COLUMN($B$2:$E$5)/($B$2:$E$5<>""),ROW(A1)),"000.000\C"),2),5,7),0)

Công thức này vẫn cho kết quả thế này ; bạn xem lại giúp =INDIRECT("R"&MID(REPT(TEXT(AGGREGATE(15;6;ROW($B$2:$E$5)/1000+COLUMN($B$2:$E$5)/($B$2:$E$5<>"");ROW(A1));"000.000\C");2);5;7);0)=#NAME?

huuthang_bd · 13/10/23

le_vis đã viết:
Công thức này vẫn cho kết quả thế này ; bạn xem lại giúp =INDIRECT("R"&MID(REPT(TEXT(AGGREGATE(15;6;ROW($B$2:$E$5)/1000+COLUMN($B$2:$E$5)/($B$2:$E$5<>"");ROW(A1));"000.000\C");2);5;7);0)=#NAME?

Không lẽ Excel 2010 chưa có hàm AGGREGATE ta.
Công thức này mà lỗi #Name nữa thì thôi nghỉ khỏe.

Mã:

=INDIRECT("R"&MID(REPT(TEXT(SMALL(IF($B$2:$E$5="","",ROW($B$2:$E$5)/1000+COLUMN($B$2:$E$5)),ROW(A1)),"000.000\C"),2),5,7),0)

le_vis · 13/10/23

huuthang_bd đã viết:
Không lẽ Excel 2010 chưa có hàm AGGREGATE ta.
Công thức này mà lỗi #Name nữa thì thôi nghỉ khỏe.

Mã:

=INDIRECT("R"&MID(REPT(TEXT(SMALL(IF($B$2:$E$5="","",ROW($B$2:$E$5)/1000+COLUMN($B$2:$E$5)),ROW(A1)),"000.000\C"),2),5,7),0)

Không lỗi #Name nữa nhưng lại lỗi #VALUE! - Nếu Ctrl + Shift + Enter thì lỗi #REF!

huuthang_bd · 13/10/23

le_vis đã viết:
Không lỗi #Name nữa nhưng lại lỗi #VALUE! - Nếu Ctrl + Shift + Enter thì lỗi #REF!

Thử sửa 000.000 thành 000,000 (Ctrl + Shift + Enter).

le_vis · 13/10/23

huuthang_bd đã viết:
Thử sửa 000.000 thành 000,000 (Ctrl + Shift + Enter).

Không được nó chỉ lấy hàng còn cột A nó bỏ qua bạn ạ ?

huuthang_bd · 13/10/23

le_vis đã viết:
Không được nó chỉ lấy hàng còn cột A nó bỏ qua bạn ạ ?

Khi đã làm theo hướng dẫn nhưng vẫn không được thì bạn nên chủ động gửi file lên.

le_vis · 13/10/23

huuthang_bd đã viết:
Khi đã làm theo hướng dẫn nhưng vẫn không được thì bạn nên chủ động gửi file lên.

Vẫn là File #1
Bạn xem giúp tôi áp dụng sai ở đâu ? Trân trọng cảm ơn

huuthang_bd · 13/10/23

le_vis đã viết:
Vẫn là File #1
Bạn xem giúp tôi áp dụng sai ở đâu ? Trân trọng cảm ơn

Nếu 2 cột màu vàng (J, K) đều lỗi thì chắc Excel của bạn có vấn đề rồi.

Nối chuỗi cột với dòng (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

!!! Giải thoát !!!

Chuyên gia GPE

!!! Giải thoát !!!

Chuyên gia GPE

Đang đi tìm hòn đá

!!! Giải thoát !!!

!!! Giải thoát !!!

Thành viên tiêu biểu

!!! Giải thoát !!!

!!! Giải thoát !!!

Thành viên tiêu biểu

Thành viên mới

!!! Giải thoát !!!

Thành viên mới

!!! Giải thoát !!!

Đăng ký hôm qua

Thành viên tiêu biểu

!!! Giải thoát !!!

Chuyên gia GPE

Thành viên tích cực

huuthang_bd​

Chuyên gia GPE​

Tôi chạy Win10, Office 2010 =TOCOL(B2:E5;1;1) = #NAME?​

!!! Giải thoát !!!

Chuyên gia GPE

huuthang_bd​

Chuyên gia GPE​

Tôi chạy Win10, Office 2010 =TOCOL(B2:E5;1;1) = #NAME?​

Thành viên tích cực

Chuyên gia GPE

Thành viên tích cực

Chuyên gia GPE

Thành viên tích cực

Chuyên gia GPE

Thành viên tích cực

File đính kèm

Chuyên gia GPE

File đính kèm

Thời gian đếm ngược.

huuthang_bd

Chuyên gia GPE

Tôi chạy Win10, Office 2010 =TOCOL(B2:E5;1;1) = #NAME?

huuthang_bd

Chuyên gia GPE

Tôi chạy Win10, Office 2010 =TOCOL(B2:E5;1;1) = #NAME?