Gộp Text ở nhiều cell vào 1 cell theo đkiện

[Lephuongthuy411]

E có 1 bài toán thế này.

Chả là e có rất nhiều PXK, trong mỗi PXK lại có nhiều sản phẩm khác nhau.
Vậy có công thức nào có thể giúp e gộp các text trong các ô vào trong cùng 1 ô không ạ
Nghĩa là e muốn có 1 dòng diễn giải tổng hợp cho các sản phẩm trong 1 PXK ý mà.

E nghĩ mãi mà ko ra công thức nào có thể giúp e giảm tải manual work cả . E có trích ra 1 đoạn ví dụ mô phỏng. Các anh chị cao thủ giúp đỡ e bé với hic hic

Thanks các a chị nhiều

 

[ndu96081631]

Gộp Text thì dùng toán tử & chứ gì
Ví dụ gộp A1, B1 và C1 thì
=A1&B1&C1

 

[hoangdanh282vn]

E có 1 bài toán thế này.

Chả là e có rất nhiều PXK, trong mỗi PXK lại có nhiều sản phẩm khác nhau.
Vậy có công thức nào có thể giúp e gộp các text trong các ô vào trong cùng 1 ô không ạ
Nghĩa là e muốn có 1 dòng diễn giải tổng hợp cho các sản phẩm trong 1 PXK ý mà.

E nghĩ mãi mà ko ra công thức nào có thể giúp e giảm tải manual work cả . E có trích ra 1 đoạn ví dụ mô phỏng. Các anh chị cao thủ giúp đỡ e bé với hic hic

Thanks các a chị nhiều

Nếu cái này mà làm bằng VBA thì hay hơn, mình gửi bạn cách dùng Name, dùng được cho 10 dòng/PXK
Bạn xem file đính kèm nha. Vào Insert\Name\Define name để xem công thức

 

[SA_DQ]

Đây là VBA, xin mới ghé vô:

Nếu cái này mà làm bằng VBA thì hay hơn, . . .

Nếu thấy OK thì xài & vui vẽ nha!

Option Explicit

Sub GopPhieu()
 Dim lRow As Long, jJ As Long
 Dim PXN As String, DGiai As String, TTien As Double
 Dim Rng As Range
 
 Sheets("Sheet1").Select:           [g1] = [A1]
 [h1] = [b1]:                       [i1] = [e1]
 lRow = [a65432].End(xlUp).Row:     Range("G2:J" & lRow).Clear
 For jJ = 2 To lRow
   With Cells(jJ, 1)
      If jJ = 2 Then
         PXN = .Value:                 DGiai = .Offset(, 1)
         TTien = .Offset(, 4)
      Else
         If .Value = PXN Then
            DGiai = DGiai & ", " & .Offset(, 1)
            TTien = TTien + .Offset(, 4)
         Else
            Set Rng = Cells([g65432].End(xlUp).Row + 1, 7)
            Rng = PXN:                 PXN = .Value
            Rng.Offset(, 1) = DGiai:   DGiai = .Offset(, 1)
            Rng.Offset(, 2) = TTien:   TTien = .Offset(, 4)
         End If
      End If
   End With
 Next jJ
 Rng.Offset(2, 1) = "Total"
 Rng.Offset(2, 2).Formula = "=SUM(I2:I" & Rng.Row & ")"
 Union(Range("G1:I1"), Rng.Offset(2).Resize(1, 3)).Select
 With Selection.Interior
   .ColorIndex = 38:                .Pattern = xlSolid
 End With
 Rng.Offset(2, 1).Resize(1, 2).Font.FontStyle = "Bold"
 Rng.Offset(2, 2).NumberFormat = "#,##0.00"
 
End Sub

 

[Lephuongthuy411]

E cảm ơn các cao thủ nhìu nhìu. E muốn tìm hiểu nhiều hơn về name tĩnh, name động thì có thể vào topic nào nhỉ. E search theo 2 từ khóa đấy nhưng ko thấy có đường link nào có instruct chi tiết cả ^___^

 

[boyxin]

E có 1 bài toán thế này.

Chả là e có rất nhiều PXK, trong mỗi PXK lại có nhiều sản phẩm khác nhau.
Vậy có công thức nào có thể giúp e gộp các text trong các ô vào trong cùng 1 ô không ạ
Nghĩa là e muốn có 1 dòng diễn giải tổng hợp cho các sản phẩm trong 1 PXK ý mà.

E nghĩ mãi mà ko ra công thức nào có thể giúp e giảm tải manual work cả . E có trích ra 1 đoạn ví dụ mô phỏng. Các anh chị cao thủ giúp đỡ e bé với hic hic

Thanks các a chị nhiều

Góp thêm 1 cách dùng công thức và Name động​

1. Tự động lọc duy nhất PXK
2. Ghép được tối đa 15 dòng trong cùng PXK