Excel VBA質問箱 IV

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

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


52564 / 76732 ←次へ | 前へ→

【29003】Re:同列内複数項目
回答  Statis  - 05/9/21(水) 8:19 -

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

お試しを。

Sub test()
Dim Da, i As Long, Ro As Long, j As Long
Ro = Range("C65536").End(xlUp).Row
Da = Range("C1:D" & Ro).Value
For i = 1 To UBound(Da)
  For j = 1 To UBound(Da)
    If i <> j Then
      If Da(i, 1) = Da(j, 1) Then
       Cells(i, 3).Interior.ColorIndex = 6
       Da(i, 2) = Da(i, 2) & " C" & j
      End If
    End If
  Next j
Next i
Range("C1:D" & Ro).Value = Da
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 回答

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