Excel 自动填充问题急啊高手们帮个忙

2025-05-20 01:21:33

推荐回答（3个）

回答1：

在工作表标签上(就是显示Sheet1的地方)右键单击，选择“查看代码(V)”,在打开的VBA编辑器里把下面的代码贴进去，就可以实现你所需要的功能了。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <> 2 Then Exit Sub
For 行 = .Row To .Row + .Rows.Count - 1
If Cells(行, 2) <> "" Then
Cells(行, 5) = Format(Date, "yyyy/mm/dd")
Else
Cells(行, 5) = ""
End If
Next
End With
End Sub

回答2：

=IF(COUNTA(B2)>0,TODAY(),"")
可能要设置一下E2单元格为日期型

回答3：

=IF(B2<>"",TODAY(),"")

Excel 自动填充问题 急啊 高手们帮个忙

Excel 自动填充问题急啊高手们帮个忙