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

[Sputnhik]

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]

Ứ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]

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

 

[cantl]

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]

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]

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]

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]

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.

 

[LmoovoenX]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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.

 

[huuthang_bd]

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

=TOCOL(B2:E5,1,1)

.
.
.
.