vba 导入身份证号变乱码

方法如下：1、在Excel表格中完整显示出身份证号码的操作方法是将单元格设置成文本格式，选中单元格，点击文本，再输入身份证号码就可以了。2、选择数字格式为“文本” 输入身份证号，并将列宽调宽让其完整显示出来。

Dim shname As String '定义字串 shname = Sheets("数据录入").Range("c2").Text '文件保存地址赋值 Sheet3.Activate cells.select 'ActiveSheet.Copy Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False '[A1:g35] = [A1:g...

Sub fdfd()n = Application.InputBox("请输入身份证号码:")If n = False Then Exit SubElseIf n = "" Then MsgBox "不能输入空值"Elsewi = Array("7", "9", "10", "5", "8", "4", "2", "1", "6", "3", "7", "9", "10", "5", "8", "4", "2"...

第二步，单元格K4,设置为常规，添加公式：=IF(H4="","",(IF(MID("10X98765432",MOD(SUMPRODUCT(MID(H4,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17"))),11)+1,1)=MID(H4,18,18),"","错误")))完成，现在验证。正确的身份证号码 错误的身份证号码 好了。目前看，没问...

看我修改的程序：Sub 随机身份证()Dim rng As Range Dim i As Integer, j As Integer Dim m As Integer, n As Integer, p As Integer Dim s As String Set rng = ActiveSheet.UsedRange rng.Delete Set rng = Nothing m = InputBox("您需要几行？", "随机数", "")Columns(1)....

Sub fdfd()n = Application.InputBox("请输入身份证号码:")If n = False Then Exit SubElseIf n = "" Then MsgBox "不能输入空值"Elsewi = Array("7", "9", "10", "5", "8", "4", "2", "1", "6", "3", "7", "9", "10", "5", "8", "4", "2")y ...

每次复制身份证号的时候总会变成+E的原因是身份证号码的数字太大了，系统自动将其修改为科学记数方式，即使将其更改回来，也会造成数据的丢失（身份证号的末三位会变成0）。Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表...

=IF(A2<>"",DATEDIF(TEXT((LEN(A2)=15)*19&MID(A2,7,6+(LEN(A2)=18)*2),"#-00-00"),TODAY(),"y"),)用这个公式试试，粘贴后要按shift+回车才能保存 用VBA写的有点问题，粘贴几个身份证号码要卡好几分钟才能操作。

a = Right(c2, 6)需要修改为 a = Right(Range("c2"), 6)

这不是乱码，是科学计数法。替换前面的字母后身份证号码就成了数值，而单元格中不能显示18位数，于是自动变换为科学计数。建议替换字母用公式或VBA处理。