EXCEL 里，比如我在A列任意单元格输入任意数字或文本，我想要B列同行就自动填上当天的日期，怎么设公式 excel 日期自动填写， 我在A列填写随便内容，B列会自动...

\u5728EXCEL VBA\u5199\u4ee3\u7801 \u8981\u6c42\u662f:\u6bd4\u5982\u6211\u5728A\u5217\u8f93\u5165\u968f\u4fbf\u5185\u5bb9,B\u5217\u5c31\u81ea\u52a8\u586b\u5165\u8f93\u5165\u5185\u5bb9\u65f6\u7684\u65e5\u671f

\u628a\u4ee3\u7801\u7c98\u8d34\u5230\u4f60\u8981\u751f\u6210\u6570\u636e\u7684\u8868\uff0c\u8fd9\u662f\u4f7f\u7528\u5355\u5143\u683c\u4e8b\u4ef6\u5b8c\u6210\u7684\uff0c\u4e5f\u5c31\u662f\u8bf4\u5728A\u3001C\u4e24\u5217\u8f93\u5165\u6570\u636e\u65f6\uff0cB\u3001D\u5c31\u76f8\u5e94\u5199\u5165\u5f53\u524d\u7684\u65e5\u671f\u548c\u65f6\u95f4\uff0c\u4e14\u8fd9\u4e2a\u65f6\u95f4\u4e0d\u4f1a\u968f\u7cfb\u7edf\u65f6\u95f4\u6539\u53d8\u800c\u6539\u53d8\uff0c\u53ea\u662f\u8f93\u5165\u6570\u636e\u7684\u65f6\u95f4\u3002
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iR&, x&
If Target.Column = 1 Or Target.Column = 3 Then
iR = Target.Row
x = Target.Column
Cells(iR, x + 1) = FormatDateTime(Now(), 0)
End If
End Sub
\u6216\u8005\u7528
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 3 Then
Cells(Target.Row, Target.Column + 1) = FormatDateTime(Now(), 0)
End If
End Sub
\u4e0d\u660e\u767d\u600e\u4e48\u7528\u53efHI\u6211\u3002

1.\u8fd9\u4e2a\u53ef\u4ee5\u7528if\u51fd\u6570\u53bb\u8868\u793a\uff0cif\u51fd\u6570\u7684\u8bed\u6cd5\u662f=if\uff08\u6761\u4ef6\uff0c\u6210\u7acb\u663e\u793a\u503c\uff0c\u4e0d\u6210\u7acb\u663e\u793a\u503c\uff09\u3002
2.\u6240\u4ee5\u516c\u5f0f\u53ef\u4ee5\u8fd9\u6837\u5199\uff1a\u6761\u4ef6-\u4efb\u610f\u5b57\u7b26\u53cd\u4e49\u8bcd\u5c31\u662f\u7a7a\u503c\u4e5f\u5c31\u662f\u201c\u201d\uff0c\u6210\u7acb\u65f6\u5373\u7a7a\u503c\u65f6\u4e5f\u662f\u663e\u793a\u7a7a\u503c\uff0c\u4e0d\u6210\u7acb-\u4e5f\u5c31\u662f\u975e\u7a7a\u503c\u65f6\u663e\u793a\u5185\u5bb9\u4e3a\u5f53\u524d\u65e5\u671f\uff0c\u8868\u793a\u5c31\u662ftoday\uff08\uff09\uff0c\u6240\u4ee5\u53ef\u4ee5\u4e0b\u9762\u8fd9\u6837\u8868\u793a\uff0c\u6ce8\u610f\u663e\u793a\u503c\u5355\u5143\u683c\u683c\u5f0f\u8981\u8bbe\u7f6e\u6210\u65e5\u671f\u683c\u5f0f\u3002

4.\u4e0a\u4f8b\u7528\u4e86\u6b63\u8d1f\u503c\uff0c\u5b57\u6bcd\u548c\u7b26\u53f7\u5747\u80fd\u663e\u793a\u5f53\u524d\u65e5\u671f\uff0c\u53ef\u89c1\u516c\u5f0f\u6709\u6548\u3002

首先需要一个特定的单元格（假设在C1单元格）以英文半角状态输入=NOW()
把B列设置为日期格式
在B1单元格输入=IF(A1>0,$C$1,"") 下拉到你所需的地方。结果是在A列任意单元格内输入任何内容，B列与A列同行的单元格内都显示当天的日期。
不知道有什么用因为如果A列单元格只要不为空B列单元格内总会是现在时的当天日期，当你看到B列都是相同日期时不会头痛？

首先需要一个特定的单元格（假设在C1单元格）以英文半角状态输入=NOW()
把B列设置为日期格式
在B1单元格输入=IF(A1>0,$C$1,"") 下拉到你所需的地方。结果是在A列任意单元格内输入任何内容，B列与A列同行的单元格内都显示当天的日期。
不知道有什么用因为如果A列单元格只要不为空B列单元格内总会是现在时的当天日期，当你看到B列都是相同日期时不会头痛？

对头，那么如何让B列单元格记录 A列单元格的修改时间呢

扩展阅读：excel a列乘以b列 ... 两列数据穿插成一列 ... 没隐藏但是a列不显示 ... excel长列 做成两列 ... excel 工作表最多可有 列 ... excel冻结指定区域 ... excel里面 怎么打出来 ... excel看不到a列 ... excel 行转列 ...