dim arr() as string ；arr=range(cells(),cells())出错，提示类型错误

xhc陈

dim arr() as string ；arr=range(cells(),cells())出错，提示类型错误，该如何修改？

gwjkkkkk

定义arr()不能定义成string类型，即文本型数组，不支持读入单元格数据,只能定变体变量即dim arr()即可

鄂龙蒙

Dim arr() As Variant

xhc陈

gwjkkkkk 发表于 2022-12-11 17:16
定义arr()不能定义成string类型，即文本型数组，不支持读入单元格数据,只能定变体变量即dim arr()即可

应该可以定义成string，附件我这么定义是不会出错的，只是不能从range直接赋值给arr数组

xhc陈

鄂龙蒙 发表于 2022-12-11 17:18
Dim arr() As Variant

这么定义，那么数组赋值到单元格就变成数值了，而不是文本

gwjkkkkk

xhc陈 发表于 2022-12-11 17:29
这么定义，那么数组赋值到单元格就变成数值了，而不是文本

你可以这样理解，定义的变体变量，那么数组值根据单元的值来决定，单元格是数值，那么数组值也是数值，如果是文本，那数组值也是文本

gwjkkkkk

xhc陈 发表于 2022-12-11 17:24
应该可以定义成string，附件我这么定义是不会出错的，只是不能从range直接赋值给arr数组

你的理解是对的.定义是可以这样定义的，但不能直接通过range对象给文本型数组赋值，如通过其他方式成功将某一值赋值给数组，这个值不管是数值还是文本形式，数组中的值均会变成文本形式，这一点需要注意。。。

opiona

1. Dim arr()
   
2. arr = Range(Cells(1, 1).Address & ":" & Cells(6, 8).Address)

复制代码