Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

[124 デフォルトの名無しさん (ﾜｯﾁｮｲ fd49-BTrK) 2023/02/19(日) 18:17:57.66 ID:FtkTxk830]

>>112
VBAならこんな感じか。
後、C列に6がないのは記入漏れ？

Sub C列に書く()

Dim i As Long, cnt As Long, dRange As Range
Set dRange = Range("B1:B3")
cnt = 1

For i = 1 To 9
If WorksheetFunction.CountIf(dRange, Cells(i, 1)) = 0 Then
Cells(cnt, 3) = Cells(i, 1)
cnt = cnt + 1
End If
Next i

End Sub