用VBA数组把这个改写一下 这个计算单

laoau138

用VBA数组把这个改写一下  这个计算单

精英土豪

Sub 计算()Dim es As Integer
es = Cells(Rows.Count, 3).End(xlUp).Row
If es > 4 Then
For i = 5 To es
Cells(i, 5) = Cells(i, 4) * Cells(i, 3)
   Next
   End If
End Sub

laoau138

精英土豪 发表于 2017-1-30 21:34
Sub 计算()Dim es As Integer
es = Cells(Rows.Count, 3).End(xlUp).Row
If es > 4 Then

不行    你这个不是数组   而且只做了一部分

精英土豪

我不代工，你之前用的循环不好，我只是提供一下思路。再说了  你的表数据量不上万  够了
你回看你的思路

laoau138

精英土豪 发表于 2017-2-1 22:28
我不代工，你之前用的循环不好，我只是提供一下思路。再说了  你的表数据量不上万  够了
你回看你的思路

不懂了就这样

精英土豪

谁写的代码

精英土豪

你就是求 c列  d列对应相乘

无聊的疯子

计算过程么??
其实用range.find 来获取最未数据行"比"range.end要好些,不容易出错

1. 
   
2. Sub jishuan()
   
3. Dim Arr() As Variant, Hx As Integer
   
4.     Hx = Range("B1000").End(xlUp).Row
   
5.     If Hx < 5 Then Exit Sub
   
6.     With Range("C5:E" & Hx)
   
7.         Arr = .Value
   
8.         For Hx = 1 To UBound(Arr)
   
9.             Arr(Hx, 3) = Arr(Hx, 1) * Arr(Hx, 2)
   
10.         Next
    
11.         .Value = Arr
    
12.     End With
    
13. End Sub
    

复制代码

laoau138

无聊的疯子 发表于 2017-2-2 17:37
计算过程么??
其实用range.find 来获取最未数据行"比"range.end要好些,不容易出错

里面几段代码  全部不要用find

laoau138

还没有人来做