Question

你好，老师，我有一段VBA的语句意思不明白 ，看到您给别人的回答很详尽，请问方便帮个忙吗？不胜感激！

Sub a()
Dim i, j, x, y As Integer
x = Sheets("发来的资料").Range("a65535").End(xlUp).Row
y = Range("a65535").End(xlUp).Row
For i = 2 To x
For j = 4 To y
If Sheets("发来的资料").Cells(i, 1) = Cells(j, 1) Then
For k = 2 To 20
If Cells(3, k) = Format(Sheets("发来的资料").Cells(i, 2), "yyyy-m") Then
If InStr(Cells(j, k), Format(Sheets("发来的资料").Cells(i, 2), "d") & ",") = 0 Then
Cells(j, k) = Cells(j, k) & Format(Sheets("发来的资料").Cells(i, 2), "d") & ","
End If
Exit For
End If
Next
Exit For
End If
Next
Next
End Sub

Answer 1

Sub a()
Dim i, j, x, y As Integer
With Sheets("发来的资料")
x = .Range("a65535").End(xlUp).Row '发来的资料A列最后一个非空单元格行号
y = Range("a65535").End(xlUp).Row '当前工作表A列最后一个非空单元格行号
For i = 2 To x '建立循环从发来的资料第二行起到最后一行
For j = 4 To y '建立循环从当前工作表第四行起循环到最后一行
If .Cells(i, 1) = Cells(j, 1) Then '判断发来的资料A列i行值是否等于当前表A列j行值，是运行下面代码，不等于退出循环
For k = 2 To 20 '建立循环从当前表第三行第2行循环到该行第20列
If Cells(3, k) = Format(.Cells(i, 2), "yyyy-m") Then '发来资料B列i行是否等于当前表第三行的日期,不等于退出循环，等于运行下面代码
If InStr(Cells(j, k), Format(.Cells(i, 2), "d") & ",") = 0 Then '判断指定字符在单元格的位置＝0为不存在
Cells(j, k) = Cells(j, k) & Format(.Cells(i, 2), "d") & "," '给单元格赋值
End If
Exit For '退出循环
End If
Next k
Exit For
End If
Next j
Next i
End With
End Sub

Answer 2

你放到excel里试试就知道了…b2的值d2的相等，c2为日期格式，多用些数据试试就明白了…