Question

所以我有一个导入的报告来保持数字上的单位。我可以使用find / replace但我需要经常导入类似的报告，并希望在保留单元格中的数字的同时删除单元的所有实例。进口单位200平方英尺。每次都会改变数字，但单位之间的空间是相同的。

Sub DeleteChar()
Dim lastrow as integer
Dim myCell as Range
lastrow = Cells(Rows.Count, 2).End(xlUp).Row    
    For y= 3 to 10
        For x = lastrow to 2 step -10
            If Right(Len(myCell.Value),7) = " sq.ft." then
            myCell.Value = Left(myCell.Value, len(myCell.Value-7))
            end if
        Next x
    Next y
End Sub

需要工作。尝试将其设置为查找右边第7个字符的实例为＆＃34; 。呎＃＆34;然后用相同的值替换该单元格 - 结尾处的那7个字符。

Answer 1

如果您的数字始终留在文本中，请使用val：

所以代替你的If：

        If Right(Len(myCell.Value),7) = " sq.ft." then
        myCell.Value = Left(myCell.Value, len(myCell.Value-7))
        end if

使用

ActiveSheet.Cells(x,y).value = Val(ActiveSheet.Cells(x,y).value)

Answer 2

/etc/mysql/my.cnf

如果您的数据输入与分隔符不一致，请告诉我，此代码会查找空格字符，因此如果有时记录不包含分隔符，则必须添加句柄。

从单元格中删除字符串，保留该单元格中的数字

2 个答案: