求助 VB怎么写有条件删选数据。

tony202109

主要有2列数据，有图和附件。
条件：
1、B列同一个值，C列包含有值和无值，则取有值的，删除无值的部分。
2、B列同一个值，而C列都没有值的则改为“1”，保留下来。

蓝桥玄霜

提取的例子：

Again123456

学习一下
Sub test()
arr = Range("A3:C19")
'1、获取全空，并改为1
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
d(arr(i, 2)) = d(arr(i, 2)) & arr(i, 3)
Next
For Each k In d.keys
If d(k) = "" Then
For i = 1 To UBound(arr)
  If arr(i, 2) = k Then
  arr(i, 3) = 1
  End If
Next
End If
Next
'2、获取剩余空的个数
For i = 1 To UBound(arr)
If arr(i, 3) = "" Then
n = n + 1
End If
Next i
'3、生成新的数组，除去剩余空数
ReDim brr(1 To UBound(arr) - n, 1 To 3)
For i = 1 To UBound(arr)
If arr(i, 3) = "" Then
m = m + 1
Else
brr(i - m, 1) = arr(i, 1)
brr(i - m, 2) = arr(i, 2)
brr(i - m, 3) = arr(i, 3)
End If
Next i
Range("g3").Resize(UBound(brr), 3) = brr
End Sub

Again123456

repeat....