|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
代码放在模块1里面。
- Sub run()
- Dim i, j, valueR, T, m&, col%, Arr, Arr2
- m = Sheet1.[a65536].End(xlUp).Row
- col = Sheet1.[iv1].End(xlToLeft).Column
- Arr = Range("a2", Cells(m, col))
- ReDim Arr2(1 To UBound(Arr), 1 To col - 1)
- For i = 1 To m - 1
- For j = 2 To col
- valueR = Val(Arr(i, j))
- T = Val(Arr(i, 1))
- If valueR <> "" Then
- Arr2(i, j - 1) = (valueR / T) * 100
- End If
- Next
- Next
- Sheet4.Activate
- Cells.ClearContents
- [b2].Resize(UBound(Arr2), UBound(Arr2, 2)) = Arr2
- End Sub
复制代码 |
|