知道了列数，但是怎样选择整列？

stoncold

进行了修改现在改为：

        For c = 1 To ecol
            If sht.Range("A1")(1, c).Value = "所属单号" Then        '查找所属单号这列，把这列转换成文本格式
            wt.Columns(c).Select            '这里使用columns这个参数来设置
            Selection.NumberFormatLocal = "@"
            End If
        Next c

现在的话只要默认打开的是Sheet1就不会报错，可以运行，但是如果不是在sheet1上运行的话，就会报错1004.
另外我想问问
            wt.Columns(c).Select
            Selection.NumberFormatLocal = "@"
这个能合并为一行吗？


另外filename = Dir(ThisWorkbook.Path & "\销售明细按单查询*.xlsx")
这里改用*.xls就会报错,不能查找旧格式的吗？
下面的附件也做了对应的修改。
审核数据.rar (23.98 KB, 下载次数: 5)

2018-10-9 13:40 上传

点击文件名下载附件

lsc900707

不知所云>>>>>>>>>

stoncold

lsc900707 发表于 2018-10-9 12:02
不知所云>>>>>>>>>

就是我查到某一列的列数，但我要在那一列上把整列的数据格式由“常规”改为“文本”。

stoncold

朱荣兴 发表于 2018-10-9 12:40
cn1是变量，不要放到引号里面

上面那一段做了修改，改为：

        For c = 1 To ecol
            If sht.Range("A1")(1, c).Value = "所属单号" Then        '查找所属单号这列，把这列转换成文本格式
            wt.Columns(c).Select            '这里使用columns这个参数来设置
            Selection.NumberFormatLocal = "@"
            End If
        Next c

现在的话只要默认打开的是SHEET1就不会报错，可以运行，但是如果不是在sheet1上运行的话，就会报错1004.
另外我想问问
            wt.Columns(c).Select
            Selection.NumberFormatLocal = "@"
这个能合并为一行吗？

grf1973

wt.Columns(c).NumberFormatLocal = "@"

grf1973

应该是sht.column吧，wt是什么鬼？
For c = 1 To ecol
    If sht.Cells(1, c) = "所属单号" Then sht.Columns(c).NumberFormatLocal = "@"
Next c

stoncold

grf1973 发表于 2018-10-9 13:43
wt.Columns(c).NumberFormatLocal = "@"

谢谢你的解答。

stoncold

grf1973 发表于 2018-10-9 13:47
应该是sht.column吧，wt是什么鬼？
For c = 1 To ecol
    If sht.Cells(1, c) = "所属单号" Then sht.Co ...

这个sht是查找的那个工作薄里的那个工作表，而wt则是在之前就已经做了赋值为本工作薄里的工作表来的。

stoncold

grf1973 发表于 2018-10-9 13:43
wt.Columns(c).NumberFormatLocal = "@"

谢谢！使用了你这个后，在sheet2上运行也没有报错了。