ترکیب ستون ها

Question

ممکن است مواقعی وجود داشته باشد که نیاز به الحاق سلول ها به یکدیگر داشته باشید. به عنوان مثال، ممکن است اطلاعاتی در سه ستون داشته باشید، اما می خواهید آنها را با هم در ستون اول هر سطر ترکیب کنید. ماکرو زیر، StuffTogether، این کار را انجام می دهد. محدوده سلول هایی را که انتخاب می کنید بررسی می کند و سپس همه چیز را از هر سلول پشت سر هم به اولین سلول انتخابی منتقل می کند.

Sub StuffTogether()
    Dim R As Range
    Dim C As Range
    Dim sTemp As String

    If Selection.Cells.Count > 1 Then
        For Each R In Selection.Rows
            sTemp = ""
            For Each C In R.Cells
                If Trim(C.Text) > "" Then
                    sTemp = sTemp & Trim(C.Text) & " "
                End If
            Next C
            R.ClearContents
            R.Cells(1) = Trim(sTemp)
        Next R
    Else
        MsgBox "Only one cell selected"
    End If
End Sub

باید توجه داشته باشید که ماکرو تنها در صورتی کار می کند که بیش از یک سلول را انتخاب کنید.