简单问题求高手帮帮忙

temin_232

菜鸟新手，潜在论坛里看一两个礼拜的贴子自学的，这个表希望达到的是在sheet1里面，B-S列的数值与A列相除再乘以100，结果生成在cross表里，以下是我写的
Sub run()
Dim i, j, valueR, T
    For i =2 To 2066
        For j = 2 To 19
            valueR = Sheet1.Cells(i, j).Value
            T = Sheet1.Cells(i,1).Value
            
If valueR <> "" Then
Sheets(cross).Cells(i, j).Value = (valueR / T) * 100
End If
            
Next
Next
End Sub

我猜应该是由于B-S列的数据出现空缺造成的，请高手赐教一二，感激不尽了！

[ 本帖最后由 temin_232 于 2011-1-20 21:24 编辑 ]

temin_232

自己顶，请高手赐教一二~

来生缘

If VBA.Trim(valueR) <> "" Then

你那有空格一个

temin_232

万分感谢，能跑出来了，能再请教一下VBA.Trim加进去的用意吗？

蓝桥玄霜

1. Sub run()
   
2. Dim i, j, valueR, T, m&, col%, Arr, Arr2
   
3. m = Sheet1.[a65536].End(xlUp).Row
   
4. col = Sheet1.[iv1].End(xlToLeft).Column
   
5. Arr = Range("a2", Cells(m, col))
   
6. ReDim Arr2(1 To UBound(Arr), 1 To col - 1)
   
7. For i = 1 To m - 1
   
8.     For j = 2 To col
   
9.         valueR = Val(Arr(i, j))
   
10.         T = Val(Arr(i, 1))
    
11.         If valueR <> "" Then
    
12.             Arr2(i, j - 1) = (valueR / T) * 100
    
13.         End If
    
14.     Next
    
15. Next
    
16. Sheet4.Activate
    
17. Cells.ClearContents
    
18. [b2].Resize(UBound(Arr2), UBound(Arr2, 2)) = Arr2
    
19. End Sub
    

复制代码