以A1单元格为样本 Application.IsText(Cells(1, 1)) = True "文本" IsNumeric(Cells(1, 1)) = True "数值" IsDate(Cells(1, 1)) = True "日期"