excel空白单元格自动下下填充上一个单元格的值
适用情况
图片: [外链图片转存失败(img-PLzkQDdz-1566355138598)(])
vba代码
Sub test()Set sh = ActiveSheeti = 1j = 1num = 685Text = sh.Cells(i, j)'(i,j) i 代表行数 j代表需要填充的列数'从第二行开始For i = 2 To num'i=m To n m,n分别代表需要填充的起始行数If Trim(sh.Cells(i, j)) = "" Thensh.Cells(i, j) = TextElseText = sh.Cells(i, j)End IfNext iEnd Sub
如果觉得《excel空白单元格自动下下填充上一个单元格的值》对你有帮助,请点赞、收藏,并留下你的观点哦!