[حل شده] جمع محتویات ستون در یک سلول

[Skynet]

با سلام خدمت عزیزان

چطور می تونم محتویات یک ستون رو در یک سلول بیارم و بینشون کلمه OR بزارم ؟
ممنونم

لینک فایل :
http://s9.picofile.com/file/8349148134/Code_wite_OR.xlsx.html

[iranweld]

با سلام


از کد ذیل استفاده کنید

Sub test()

Dim i As Integer

Dim xx As String

EndRow = Cells(Rows.Count, "b").End(xlUp).Row

For i = 8 To EndRow

If Len(xx) = 0 Then

xx = Range("b" & i)

Else

xx = xx & " OR " & Range("b" & i)

End If

Next

Range("D8") = xx


MsgBox xx

End Sub 

[Skynet]

با سلام


از کد ذیل استفاده کنید

Sub test()

Dim i As Integer

Dim xx As String

EndRow = Cells(Rows.Count, "b").End(xlUp).Row

For i = 8 To EndRow

If Len(xx) = 0 Then

xx = Range("b" & i)

Else

xx = xx & " OR " & Range("b" & i)

End If

Next

Range("D8") = xx


MsgBox xx

End Sub 

با و سلام و سپاس فراوان از استاد عزیز iranweld