Excelで表示されているセルのみを連結するにはどうすればよいですか？

フィルタリングされたデータのリストがある場合、表示されているセルのみを連結して非表示のセルを無視し、次の結合結果を得たいと思います。Excelでこのタスクを迅速かつ簡単に完了するにはどうすればよいですか？

VBAコードを使用して表示されているセルの値のみを1つのセルに連結する

VBAコードを使用して表示されているセルの値のみを1つのセルに連結する

ユーザー定義関数を作成してこのジョブを解決できます。以下の手順で行ってください：

1. ALT + F11キーを押したままMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード: 表示されているセルの値のみを連結する:

Private Function ConcatenateVisible(xRg As Variant, sptChar As String)
'Updateby Extendoffice
    Dim rg As Range
    For Each rg In xRg
        If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
            ConcatenateVisible = ConcatenateVisible & rg.Value & sptChar
        End If
    Next
    ConcatenateVisible = Left(ConcatenateVisible, Len(ConcatenateVisible) - Len(sptChar))
End Function

3. その後、このコードを保存して閉じ、ワークシートに戻り、この数式を入力します：=concatenatevisible(B2:B10,"-")（B2:B10は結合したいフィルタリングされたデータ範囲、「-」は結合された値を区切るための区切り文字です。必要に応じて変更できます。）結合結果を配置したい空白のセルに入力し、Enterキーを押して結果を得ます。スクリーンショットをご覧ください：

注：このユーザー定義関数では、結合された結果はフィルタリングされたデータに応じて動的に変化します。例えば、KTO製品をフィルタリングすると、結合された結果は新しいフィルタリングされたデータに変わります。スクリーンショットをご覧ください：