Sub abc()Dim c As Range, c1 As Range
Set c1 = Range("某个单元格")
For r = 1 To 100
If Range("D" & r) & Range("E" & r) = "无无" Then
Set c = Range("F" & r & ":N" & r).Find("有")
If Not c Is Nothing Then c1 = Range("B" & r): Set c1 = c1.Offset(1, 0)
' 说明，为防止第二个符合条件的数据覆盖【某个单元格】中的内...
