Excel宏用于查找特定列中数字大于20的单元格，然后将匹配单元格除以1000

Question

我有很多日志文件要导入Excel，我正在尝试创建一个宏，可以在特定列中找到大于20的数字，然后将符合条件的单元格除以1000（从Kb转换为MB）。任何帮助将不胜感激。

谢谢，

西蒙

Answer 1

假设你的Kb值从A列的第1行开始，在B栏中写下这个公式：

=IF(A1>20, A1/1000, A1)

基本上，这样做，告诉计算机如果A1大于20，则将A1 / 1000放入此单元格中，否则放入A1。在列中向下拉伸此公式将为每行提供正确的公式。

Answer 2

宏版本..如果您在A列中有数据

Sub test()
Dim erange As Range
Dim lrow As long

With ActiveSheet
lrow = .Range("A" & .Rows.Count).End(xlUp).Row

For Each erange In .Range("A2:A" & lrow)

If erange.Value > 20 Then

erange.Offset(0, 1).Value = erange.Value / 1000

End If

Next erange

End With

End Sub