|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
欢迎指正
本帖最后由 JIAODONG8800 于 2019-10-24 10:53 编辑
Sub 按钮1_Click()
Dim m%
Dim dic As Object
Dim yyyy As String
Dim mm As String
Dim dd%
Set dic = CreateObject("scripting.dictionary")
For m = 2 To Cells(Rows.Count, 1).End(3).Row
dic(Format(Cells(m, 1), "yyyy/mm/dd")) = Cells(m, 2)
Next
yyyy = [g1]
mm = [j1]
For dd = 1 To 31
If dic.exists(Format(yyyy & "/" & mm & "/" & dd, "yyyy/mm/dd")) Then
Cells(Rows.Count, 8).End(3)(2) = Format(yyyy & "/" & mm & "/" & dd)
Cells(Rows.Count, 9).End(3)(2) = dic(Format(yyyy & "/" & mm & "/" & dd, "yyyy/mm/dd"))
Else
End If
Next
End Sub |
|