发布网友 发布时间:2022-04-28 15:52
共2个回答
热心网友 时间:2022-06-19 13:38
假定当前sheet名字为sheet1
Sub list()
max_row = Sheets("sheet1").[A65536].End(xlUp).Row
Cells(1, 5) = value_s
j = 1
For i = 1 To max_row
value_s = Cells(i, 1)
value_e = Cells(i, 2)
n = 1
Do While Value_m < value_e
Value_m = value_s + 0.1 * (n - 1)
Cells(j, 5) = Value_m
n = n + 1
j = j + 1
Loop
Next
End Sub
追答
你这个用公式应该实现不了,只能用宏了, 把上面拷贝到菜单-视图-宏里运行就可以了
热心网友 时间:2022-06-19 13:38
统计A列数据在10-30区间数据的个数