Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52576 / 76732 ←次へ | 前へ→

【28991】Re:同列内複数項目
回答  ちくたく  - 05/9/20(火) 15:31 -

引用なし
パスワード
   こんにちは。

ものすごい酷いコードですが(笑)。
昔ながら的にやるならこんな感じでしょうか?
ほんとに合ってるのかわかりませんが。

Sub 重複項目()
  Dim endCRow As Integer
  Dim i As Integer, j As Integer
  
  endCRow = CInt(Range("C65536").End(xlUp).Row)
  
  For i = 1 To endCRow
    For j = 2 To endCRow
      If i <> j And Range("C" & i).Value = Range("C" & j).Value Then
        Range("D" & j).Value = Range("D" & j).Value & "C" & i
        Range("C" & j).Interior.ColorIndex = 3
      End If
    Next j
  Next i
End Sub

0 hits

【28990】同列内複数項目 Help me!! 05/9/20(火) 15:13 質問
【28991】Re:同列内複数項目 ちくたく 05/9/20(火) 15:31 回答
【29003】Re:同列内複数項目 Statis 05/9/21(水) 8:19 回答
【29030】Re:同列内複数項目 Hirofumi 05/9/21(水) 22:55 回答

52576 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free