求格式转变的方法，函数或VBA皆可，谢谢

AREUOK · 发表于 2011-4-19 14:42

求格式转变的方法，函数或VBA皆可，谢谢

[ 本帖最后由 AREUOK 于 2011-4-19 14:54 编辑 ]

LangQueS · 发表于 2011-4-19 14:55

在数据列手工填充空值：选择要填充的范围》编辑》定位》空值》确定》按“=”》按方向键“↑”》Ctrl++Enter》再选择上述范围》复制》编辑》选择性粘贴》粘贴数值》确定

dsmch · 发表于 2011-4-19 14:57

操作方法：编辑、定位，空值，输入=上一个单元格值，按ctrl+enter

AREUOK · 发表于 2011-4-19 14:58

原帖由 LangQueS 于 2011-4-19 14:55 发表
在数据列手工填充空值：选择要填充的范围》编辑》定位》空值》确定》按“=”》按方向键“↑”》Ctrl++Enter》再选择上述范围》复制》编辑》选择性粘贴》粘贴数值》确定

谢谢，我因有特殊情况需要用函数或VBA解决

dsmch · 发表于 2011-4-19 15:03

Dim arr
arr = Range("a2").CurrentRegion
x = arr(1, 1): y = arr(1, 2)
For i = 2 To UBound(arr)
If arr(i, 1) = "" Then arr(i, 1) = x Else x = arr(i, 1)
If arr(i, 2) = "" Then arr(i, 2) = y Else y = arr(i, 2)
Next i
Range("f2").Resize(UBound(arr), UBound(arr, 2)) = arr

AREUOK · 发表于 2011-4-19 15:06

多谢DSMCH

zmmkleiya · 发表于 2011-4-19 15:27

看不懂VBA.还是2楼三楼的方法对我有帮助

		自动登录	找回密码
密码			免费注册