Excel VBA 質問スレ Part76at TECHExcel VBA 質問スレ Part76 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト1000:デフォルトの名無しさん (ｽﾌｯ Sd43-TkQT) 22/07/15 09:42:45 D6klNH8hd.net Sub sample3() Dim r As Long Dim z As Long '最終行 Dim s As String '全データ Dim a() As String '単語リスト Dim i As Long z = Cells(Rows.Count, 1).End(xlUp).Row For r = 1 To z Cells(r, 2) = Cells(r, 1) s = s & Cells(r, 1) & " " Next r a = Split(s, " ") For i = LBound(a) To UBound(a) If Len(s) - Len(a(i)) > Len(Replace(s, a(i), "")) Then '2回以上出てくるか For r = 1 To z Cells(r, 2) = Trim(Replace(Cells(r, 2), a(i), "")) '各セルから削除 Next r End If Next i End Sub 1001:デフォルトの名無しさん (ｱｳｱｳｳｰ Sa09-jVDF) 22/07/15 09:47:20 kfkt8EAfa.net 効率どうこう言う前に重複した単語がでるような関数はどうかと思うのｗ 1002:デフォルトの名無しさん 22/07/15 13:22:47.81 kd+ZBNkRd.net ここでRuby馬鹿がRubyではこうなるとか書くのは見えている 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch