如何判断单元格中的数字是数值型还是文本型

向前650809

各位网友好，如何判断一个单元格中的数字是数值型还是文本型，如果是整数且为文本型，如何利用代码改为常规的数字，就是整数不出现小数点。
请指导，谢谢

釜底抽薪

不管是不是数值行 就全部剩1 然后再四舍五入保留0位就是整数了

金樽空对月

activecell 就是你要选择的单元格

1. Sub test()
   
2.     If ActiveCell.NumberFormatLocal = "@" And ActiveCell * 1 = Int(ActiveCell * 1) Then
   
3.         ActiveCell.NumberFormatLocal = "G/通用格式"   '把文本格式设置成常规数字格式
   
4.     End If
   
5.     'and前面的条件是判断它是否为文本格式，后面条件判断它是否为整数
   
6. End Sub

复制代码

向前650809

ActiveCell * 1 = Int(ActiveCell * 1)
这行不明白
这个程序代码，对指定的单元格也可行吗