我一直试图将功能性工作簿拼凑在一起,在我去的时候使用 VBA 代码。
我目前创建了一个宏,它会查看列中动态范围的值,并将它们转换为新值。
Sub ConvertWireSize()
Dim i As Long
Sheets("Circuits").Select
Range("H1").Select
For i = 1 To Rows.Count
If Cells(i, 8).Value = 0.5 Then
Cells(i, 8).Value = 20
ElseIf Cells(i, 8).Value = 0.8 Then
Cells(i, 8).Value = 18
ElseIf Cells(i, 8).Value = 1 Then
Cells(i, 8).Value = 16
ElseIf Cells(i, 8).Value = 2 Then
Cells(i, 8).Value = 14
ElseIf Cells(i, 8).Value = 3 Then
Cells(i, 8).Value = 12
ElseIf Cells(i, 8).Value = 5 Then
Cells(i, 8).Value = 10
ElseIf Cells(i, 8).Value = 8 Then
Cells(i, 8).Value = 8
ElseIf Cells(i, 8).Value = 13 Then
Cells(i, 8).Value = 6
ElseIf Cells(i, 8).Value = 19 Then
Cells(i, 8).Value = 4
End If
Next i
MsgBox "Wire Size Has Been Converted From CSA to AWG."
Sheets("Main").Select
End Sub
这似乎是一种非常低效,缓慢的做事方式。
我一直试图拼凑一个使用VLookup
的新宏,但是我做的研究越多,我就越困惑。
有人可以帮我指出正确的方向吗?
答案 0 :(得分:1)
只要列H中的值延伸,就不要进入行1048576。使用Select Case清理您的IF。 Don't use Select
Sub ConvertWireSize()
Dim i As Long
with workSheets("Circuits")
For i = 1 To .cells(.Rows.Count, "H").end(xlup).row
select case .Cells(i, 8).Value2
case 0.5
.Cells(i, 8).Value = 20
case 0.8
.Cells(i, 8).Value = 18
case 1
.Cells(i, 8).Value = 16
...
end select
Next i
end with
MsgBox "Wire Size Has Been Converted From CSA to AWG."
workSheets("Main").Select
End Sub
我无法轻易确定转换的线性模式,但您可以调整一些数学来进行每次转换。
如果你有超过几千个这样的转换,那么内存中的数组会显示效率明显提高。