vba - 跨不同格式查找多头

Question

我有多种格式的数据，我正在努力更改它们以试图找到它们。有问题的数字目前以 dataT.Range("F2:F" & lRow).NumberFormat = "###.00" 格式存储为数字。但是，它们以#### 的形式存储在另一个电子表格的其他位置，不包括小数点。例如原始格式:“30.00” 新格式“3000”或原始格式:“10.50” 新格式“1050”。我试图通过 Replace() 删除小数点功能，但我相当肯定它会失败并且确实如此。任何想法或建议将不胜感激。这个函数只是一个较大例程的一小部分。

简单的问题:我需要将存储在这种格式“30.00”中的数字更改为目标格式“3000” 以右边开头的行是我试图解决问题的地方

Function AnalyzeOiData(lRow As Integer, oiDataSheet As Worksheet, productSheet As Worksheet, rownum As Integer)

Dim counter As Integer
Dim monthExp As String
Dim oiLocationFinder As Range
Dim strikeLoc As Range
Dim optStrike As Long

For counter = rownum To lRow

     'Returns formatted monthcode for finding the different months of expiry embedded in the OI data
     monthExp = GetMonthCode(productSheet.Cells(counter, 1), productSheet.Cells(counter, 2))
     optStrike = Replace(productSheet.Cells(counter, 3), ".", "")  ***
     oiLocationFinder = oiDataSheet.Columns(1).Find(monthExp)

     oiLocationFinder.Select
     strikeLoc = Range(Selection, Selection.End(xlDown)).Find(optStrike).Address

     productSheet.Cells(counter, 11) = strikeLoc.Offset(0, 9)
     productSheet.Cells(counter, 12) = strikeLoc.Offset(0, 10)

Next

End Function

Answer 1

将您正在处理的每个单元格输入到以下子项中:

Sub Convert(cell As Range)
    If cell.NumberFormat = "0.00" Then
        cell.Value = cell.Value * 100
        cell.NumberFormat = "0"
    End If
End Sub

如果你喂这些细胞...



...结果是: