ฉันมีสิ่งนี้:
ฉันมีรหัส VBA:
Public Function CONCATENATESPECIAL(rng As Range) As String
Dim rng1 As Range
CONCATENATESPECIAL = ""
For Each rng1 In rng
If rng1.Value <> "" Then
CONCATENATESPECIAL = CONCATENATESPECIAL & rng1.Text & " | "
End If
Next rng1
End Function
ฉันต้องผ่านคอลัมน์และเขียนเนื้อหาลงในนั้นคั่นด้วย "|" ซึ่งทำงานได้อย่างสมบูรณ์
ปัญหาของฉันคือมันใช้ไม่ได้กับการกรอง เมื่อฉันกรองบางอย่างมันยังคงแสดงผลลัพธ์เดียวกัน
If (Not Rows(rng1.Row).Hidden) And (rng1.Value <> "") Then
แก้ไขมัน! ขอบคุณมาก!