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空白单元格自动下下填充上一个单元格的值》对你有帮助，请点赞、收藏，并留下你的观点哦！