|
发表于 2013-3-28 16:00
|
显示全部楼层
本楼为最佳答案
- Sub test()
- Dim A, B, i%, j%, k%, l%
- A = Sheet1.Range("a1").CurrentRegion
- Sheet2.Range("b2:c65536").ClearContents
- B = Sheet2.Range("a1").CurrentRegion
- For i = 2 To UBound(B)
- For j = 2 To UBound(B, 2)
- For k = 2 To UBound(A)
- For l = 1 To UBound(A, 2)
- If B(i, j) = 0 Then
- If B(i, 1) = A(k, 2) And B(1, j) = A(k, 3) Then
- B(i, j) = A(k, 1)
- End If
- End If
- Next
- Next
- Next
- Next
- Sheet2.Range("b:c").NumberFormat = "m月d日"
- Sheet2.Range("a1").Resize(i - 1, j - 1) = B
- End Sub
复制代码
如何用VBA找到符合条件的内容2.rar
(9.75 KB, 下载次数: 14)
|
|