Nối chuỗi ký tự theo điều kiện

[luuhonghai]

Em có rất nhiều file scan được đặt tên là: File1Hai, File2Hai,...
Mỗi File chứa số lượng trang không giống nhau: File1Hai là từ trang 1 đến trang 24 thì ở cột kết quả em cần là một chuỗi được ngăn cách bằng dấu "," như sau: 1 File1Hai, 2 File1Hai, 3 File1Hai, 4 File1Hai, 5 File1Hai,..., 24 File1Hai
Tương tự với các file còn lại là File2Hai, File3Hai,... FilenHai
Rất mong nhận được sự giúp đỡ từ các anh chị. Em cảm ơn!

 

[befaint]

Có 3 dòng thôi mà gõ kết quả minh họa còn khác nhau => Quy luật: Chẳng có quy luật nào.

Chưa kể cái mấy cái dấm chấm chấm kia "ngụ ý" cái gì.



Đưa kết quả rồi thì miễn giải thích và hỏi thêm.

E2=C2& " "&B2&", "&C2+1&" "&B2&", …, "&D2&" "&B2

 

[luuhonghai]

Có 3 dòng thôi mà gõ kết quả minh họa còn khác nhau => Quy luật: Chẳng có quy luật nào.

Chưa kể cái mấy cái dấm chấm chấm kia "ngụ ý" cái gì.

View attachment 220923

Đưa kết quả rồi thì miễn giải thích và hỏi thêm.

E2=C2& " "&B2&", "&C2+1&" "&B2&", …, "&D2&" "&B2

Dạ, em xin được trình bày lại yêu cầu:
Em có rất nhiều file scan được đặt tên là: File1Hai, File2Hai,...
Mỗi File chứa số lượng trang không giống nhau: File1Hai là từ trang 1 đến trang 24 thì ở cột kết quả em cần là một chuỗi được ngăn cách bằng dấu "," như sau: 1 File1Hai, 2 File1Hai, 3 File1Hai, 4 File1Hai, 5 File1Hai,..., 24 File1Hai
Tương tự với các file còn lại là File2Hai, File3Hai,... FilenHai
Rất mong nhận được sự giúp đỡ ạ. Em cảm ơn!

 

[FatBear]

Dạ, em xin được trình bày lại yêu cầu:
Em có rất nhiều file scan được đặt tên là: File1Hai, File2Hai,...
Mỗi File chứa số lượng trang không giống nhau: File1Hai là từ trang 1 đến trang 24 thì ở cột kết quả em cần là một chuỗi được ngăn cách bằng dấu "," như sau: 1 File1Hai, 2 File1Hai, 3 File1Hai, 4 File1Hai, 5 File1Hai,..., 24 File1Hai
Tương tự với các file còn lại là File2Hai, File3Hai,... FilenHai
Rất mong nhận được sự giúp đỡ ạ. Em cảm ơn!

=)) bác bi phên vui tính nên vậy.nhưng quan trọng ở đây là bác ý muốn người hỏi cũng phải chú ý diễn đạt và đưa kết quả chính xác,hay có thể hiểu là có trách nhiệm trong câu hỏi mình up lên, đừng nói tắt và bắt người ta phải suy đoán. thôi khuya rồi, bác tha cho bạn ấy đi ))

Sub GPE()
Dim i As Long, j As Long
Dim d As String
Dim arr(), darr()
With Sheet1
    arr = .UsedRange.Value2
    s = UBound(arr)
    ReDim darr(1 To s, 1 To 1)
    For i = 2 To s
        d = Empty
        For j = arr(i, 3) To arr(i, 4)
            ten = "," & j & arr(i, 2)
            d = d & ten
        Next j
    darr(i - 1, 1) = Right(d, Len(d) - 1)
    Next i
.[F2].Resize(s, 1) = darr
End With
End Sub

 

[luuhonghai]

=)) bác bi phên vui tính nên vậy.nhưng quan trọng ở đây là bác ý muốn người hỏi cũng phải chú ý diễn đạt và đưa kết quả chính xác,hay có thể hiểu là có trách nhiệm trong câu hỏi mình up lên, đừng nói tắt và bắt người ta phải suy đoán. thôi khuya rồi, bác tha cho bạn ấy đi ))

Sub GPE()
Dim i As Long, j As Long
Dim d As String
Dim arr(), darr()
With Sheet1
    arr = .UsedRange.Value2
    s = UBound(arr)
    ReDim darr(1 To s, 1 To 1)
    For i = 2 To s
        d = Empty
        For j = arr(i, 3) To arr(i, 4)
            ten = "," & j & arr(i, 2)
            d = d & ten
        Next j
    darr(i - 1, 1) = Right(d, Len(d) - 1)
    Next i
.[F2].Resize(s, 1) = darr
End With
End Sub

Em cảm ơn anh rất nhiều ạ. Cũng vì em mới tham gia diễn đàn nên ngay cả kinh nghiệm "hỏi-đáp" cũng bị hạn chế. Em sẽ rút kinh nghiệm để có thể học hỏi được nhiều hơn từ các anh, chị.