Excel総合相談所 152

500 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 18:38:17.90 .net

>>499
以下のVBAマクロを実行することで、データAから重複している単語を取り除いてデータBに整形することができます。

Sub RemoveDuplicates()
Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim arr As Variant

scss
Copy code
'最終行を取得
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

'配列にデータを格納
arr = Range("A1:A" & LastRow)

'重複している単語を取り除く
For i = 1 To LastRow
For j = 1 To 4
arr(i, 1) = Replace(arr(i, 1), "RED BLUE", "")
Next j
arr(i, 1) = Trim(arr(i, 1))
Next i

'配列をシートに出力
Range("B1").Resize(LastRow, 1) = arr
End Sub

このマクロを実行するには、Excelの「開発」タブの「Visual Basic」をクリックして、VBAエディタを開きます。マクロを貼り付けて実行ボタンをクリックしてください。