有个VBA不知道怎么写了，求高手指定

bascfm

wj2368 发表于 2019-6-13 09:27
加红的代码
With Worksheets("sheet1")
    .Range("a2").Resize(m, UBound(crr, 2)) = crr

  With Worksheets("资材课")
    For rq = #5/1/2019# To #5/31/2019#

这个两个能不能改成自动获取

chxw68

bascfm 发表于 2019-6-13 09:50
With Worksheets("资材课")
    For rq = #5/1/2019# To #5/31/2019#

代码怎么知道是哪个月的？

micch

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     ar = [a1].CurrentRegion
   
4.     ReDim br(1 To 333, 1 To 5)
   
5.     For i = 2 To UBound(ar)
   
6.         d(ar(i, 4)) = d(ar(i, 4)) + 1
   
7.         If ar(i, 4) <> ar(i - 1, 4) And i > 2 Then
   
8.             For k = d(ar(i - 1, 4)) + 1 To 5
   
9.                 m = m + 1
   
10.                 For j = 1 To 4: br(m, j) = ar(i - 1, j): Next j
    
11.             Next k
    
12.         End If
    
13.         m = m + 1
    
14.         For k = 1 To 5: br(m, k) = ar(i, k): Next k
    
15.     Next i
    
16.     [a2].Resize(m, 5) = br
    
17. End Sub
    

复制代码

bascfm

能不能读取D列的值来判断月份