いつもこちらにお世話になっております。
画像のようにA列を対象に、Aの値が下の値と同じ場合に
B列の数字を連続で入れるコードを書きたいです。
A列には200行、値が入る予定です。
VBA
1 2 '//使用セルの最終行を取得 3 Dim fin_line As Long, k 4 With ws1.UsedRange 5 fin_line = .Rows(.Rows.Count).Row 6 End With 7 For k = 2 To fin_line 8Dim range1 As Object 9 i = 1 10 For Each range1 In ws.Cells(k, 1) 11 ws.Activate 12 ws.Range("A1").Activate 13 14 ActiveCell.Offset(1, 0).Activate 15 If ActiveCell.Value = ws.Cells(k, 1) Then 16 ws1.Cells(k, 2).Value = k - 1 17 Else 18 ws1.Cells(k, 2).Value = i 19 End If 20 Next range1 21 Next k
For Each range1 In ws.Cells(k, 1)
上記でアプリケーション定義、オブジェクト定義のエラーが出てしまいます。
知恵を貸していただけると幸いです
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/09/21 13:54
2021/09/21 14:03
2021/09/21 14:42 編集
2021/09/21 14:29
2021/09/21 14:42
2021/09/21 15:10