Excel VBA質問箱 IV

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

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


24374 / 76738 ←次へ | 前へ→

【57712】Re:同値行の塗りつぶし
回答  ハチ  - 08/9/10(水) 12:43 -

引用なし
パスワード
   ▼gaku さん:

>>まず、重複した番号を洗い出すマクロを作るのが先決だと思います。
>重複した番号は、COUNTIFで洗い出せばよいのでしょうか?

その通りです。COUNTIFで重複番号を洗い出せます。

案としては、
1.
作業列を作って、作業列に.Formulaで数式を埋め込む。
2.
ループを作って、WorksheetFunction.CountIfで判定する。

新規SheetにSampleでテストデータを作って試してみてください。
Sub Sample()
  Dim i As Long
  Dim j As Long
  
  For i = 1 To 20
    Randomize
    j = Int(Rnd * 20)
    Cells(i, 1).Value = j
  Next
End Sub

Sub test1()
  With Range("A1:A20").Offset(, 1)
    .Formula = _
    "=IF(COUNTIF($A$1:$A$20,A1)>1,""×"","""")"
    .Value = .Value
  End With
End Sub

Sub test2()
  Dim Rng As Range
  
  For Each Rng In Range("A1:A20").Cells
    If WorksheetFunction. _
    CountIf(Range("A1:A20"), Rng) > 1 Then
      Rng.Offset(, 2).Value = "××"
    End If
  Next
End Sub
0 hits

【57696】同値行の塗りつぶし gaku 08/9/10(水) 2:50 質問
【57699】Re:同値行の塗りつぶし ハチ 08/9/10(水) 8:58 発言
【57703】Re:同値行の塗りつぶし gaku 08/9/10(水) 10:16 お礼
【57706】Re:同値行の塗りつぶし ハチ 08/9/10(水) 10:45 発言
【57709】Re:同値行の塗りつぶし gaku 08/9/10(水) 11:55 質問
【57712】Re:同値行の塗りつぶし ハチ 08/9/10(水) 12:43 回答
【57725】Re:同値行の塗りつぶし gaku 08/9/10(水) 15:38 質問
【57734】Re:同値行の塗りつぶし ハチ 08/9/11(木) 8:31 発言

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