excel中如果有空的单元格，则自动填充上一单元格的内容。

发布网友 发布时间：2022-04-21 09:42

我来回答

共4个回答

热心网友 时间：2023-11-09 11:30

1、选定区域——ctrl+g——定位条件——空值——确定——在编辑栏输入等于最上面一个空单元格（假设是a5）上邻的单元格（如=a4）——按ctrl+enter结束计算；
2、再从选整个区域——复制——右键——选择性粘贴——数值——确定。

热心网友 时间：2023-11-09 11:30

Private Sub Form_Load()
Set XlApp = CreateObject("Excel.Application")
XlApp.Workbooks.Open App.Path & "\123.xls" '文件位置
For j = 1 To XlApp.Workbooks(1).Worksheets(1).UsedRange.Columns.Count
For i = 1 To XlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count ' 从第一行到尾行
If Trim(XlApp.Workbooks(1).Worksheets(1).Cells(i, j).Text) = "" Then
XlApp.Workbooks(1).Worksheets(1).Cells(i, j) = XlApp.Workbooks(1).Worksheets(1).Cells(i - 1, j).Text
End If
Next
Next j
XlApp.Workbooks(1).Save
XlApp.Quit
End Sub

热心网友 时间：2023-11-09 11:31

把Cells(j, 1). 和 Cells(j, 2).中用另一个循环变量k来代替，即Cells(j, k).和Cells(j, k+1)，k从1开始.追问具体一点，我不懂程序，谢谢！

热心网友 时间：2023-11-09 11:32

真是太简单了

Private Sub CommandButton1_Click()
Dim M As Integer, N As Integer
M = InputBox("请输入你要计算到第几行M= （M>1)")
N = InputBox("请输入你要计算到第几列N=")
For i = 2 To M
For j = 1 To N
If Cells(i, j).Value = "" Then Cells(i, j).Value = Cells(i - 1, j).Value
Next
Next
End Sub