VB运行 如图 求代码

yenannan666

求助各位大神，如图片中所示，点击sheet1按钮 sheet2为结果，简单说就是查找sheet1中两个日期在sheet2对应行的其他列显示1   注意：sheet1中的两个值是不固定的 可变换的 就是位置不变。多谢了

weare2

这个样子？

大灰狼1976

好久没来了。

1. Sub test()
   
2. Dim arr, i&, rng As Range
   
3. arr = Sheets(1).[a1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.   Set rng = Sheets(2).Columns(1).Find(arr(i, 2), lookat:=xlWhole)
   
6.   If Not rng Is Nothing Then rng.Offset(, 1) = 1
   
7. Next i
   
8. End Sub

复制代码

大灰狼1976

另一种方法：

1. Sub test()
   
2. Dim rng As Range
   
3. Set rng = Sheets(2).Range("b1:b" & Sheets(2).Cells(Rows.Count, 1).End(3).Row)
   
4. rng = "=IF(COUNTIF(Sheet1!B:B,INDIRECT(""A""&ROW())),1,"""")"
   
5. rng = rng.Value
   
6. End Sub

复制代码