修改VBA代码

jzyjs8680

修改VBA代码(先谢谢老师)

獨一無2

请描述下需求

鄂龙蒙

1. Sub AAA()
   
2.     Application.ScreenUpdating = False
   
3.     Range("F3:H1000").ClearContents
   
4.     Dim d, arr, brr, i&, m&
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     arr = Sheet1.[A1].CurrentRegion '数据区标题的第一个单元
   
7.     ReDim brr(1 To UBound(arr) * 2, 1 To 3) '4是数据的列控制
   
8.     For i = 3 To UBound(arr) '数据区域开始行控制
   
9.         If arr(i, 1) <> "" Then
   
10.             For j = 2 To 3
    
11.                 m = m + 1
    
12.                 brr(m, 1) = arr(i, 1)
    
13.                 brr(m, 2) = arr(i, j)
    
14.                 If j = 2 Then
    
15.                     brr(m, 3) = arr(i, 4) * -1
    
16.                 Else
    
17.                     brr(m, 3) = arr(i, 4)
    
18.                 End If
    
19.             Next
    
20.         End If
    
21.     Next
    
22.     [F3].Resize(m, 3) = brr
    
23. End Sub

复制代码

jzyjs8680

鄂龙蒙 发表于 2018-7-19 07:56

谢谢老师了要的就是这样的效果

鄂龙蒙

jzyjs8680 发表于 2018-7-19 08:15
谢谢老师了要的就是这样的效果

感到有用来朵花呗

jzyjs8680

鄂龙蒙 发表于 2018-7-19 08:23
感到有用来朵花呗

老师数据区条件如果是这样代码又是怎样（谢谢）