同代码在有些电脑会报错

听歌的海

请教老师，按指定条件调整列顺序，表1是原始表，表2是希望整成的顺序，如下代码在有些电脑会报错，报错提标为：”对象变量或未设置With块变量“。

但是在我自已的电脑又可以顺利运行，请老师们指点一下，谢谢。





sub 调整列顺序（）

ary = Array("姓名", "保健册号", "出生日期", "性别", "母亲姓名", "母亲电话", "父亲姓名", "父亲电话", "户籍地址", "居住地址", "户籍类型", "居住类型", "是否在册", "建册日期", "")
With ThisWorkbook.Worksheets(csname)
    For y = 0 To UBound(ary)
        Rows(1).Find(ary(y), lookat:=xlWhole).EntireColumn.Cut  
        Columns(y + 1).Insert Shift:=xlToRight                  '
    Next y
        Columns("O:BA").Delete
End With


end sub

边缘码农

工作簿1是个空表格，没有数据？格式是xlsx？

fzxba

倒数2、4、5行前面都加一个西文的 点(  . )

听歌的海

边缘码农 发表于 2024-3-14 15:45
工作簿1是个空表格，没有数据？格式是xlsx？

是的，我只是列顺序要调整，所以没放数据

听歌的海

fzxba 发表于 2024-3-14 15:50
倒数2、4、5行前面都加一个西文的 点(  . )

能请老师谈具体点不？

shiruiqiang

听歌的海 发表于 2024-3-14 17:19
能请老师谈具体点不？