[已解决]代码运行出错，错在哪？求助。

zk888

表中的代码运行时，提示：类型不匹配
2013年春季火烈鸟政策物料发放.rar (13.35 KB, 下载次数: 8)

2013-3-18 15:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-18 15:48

1. Dim arr, temp$
   
2. arr = Sht.Range("F4:F14")
   
3. temp = Replace(Join(Application.WorksheetFunction.Transpose(arr), ","), ",", "")
   
4. If Sht.Range("H1") = "" Or Sht.Range("I1") = "" Or temp = "" Then

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sht.Range("F4:F14")= ""

复制代码

这有问题。

hwc2ycy

单个的RANGE可以这样判断，可你这是一个区域，直接去比较=""就不合适了。
其实你刚问的F4:F14是用在这个场合中的吧。

hwc2ycy

1. Dim arr, temp$
   
2. arr = Sht.Range("F4:F14")
   
3. temp = Replace(Join(Application.WorksheetFunction.Transpose(arr), ","), ",", "")
   
4. If Sht.Range("H1") = "" Or Sht.Range("I1") = "" Or temp = "" Then

复制代码

hwc2ycy

因为你是读一列，可以先取F4:F14的内容到数据经过转置成一维数组，再用JOIN，生成字符串，再替换连接符，这样可以比较F4:F14全为空的情况。中间有单元格为空的情况就得用INSTR来判断。

zk888

hwc2ycy 发表于 2013-3-18 15:48

谢谢你的解答。
一定要用这个语句吗？
03.temp$ = Replace(Join(Application.WorksheetFunction.Transpose(arr), ","), ",", "")
直接用Arr= ""不可以吗？

hwc2ycy

对了，用temp like "* *"也能判断是否有空单元格，2个*号中间有个空格。

hwc2ycy

zk888 发表于 2013-3-18 15:53
谢谢你的解答。
一定要用这个语句吗？
03.temp$ = Replace(Join(Application.WorksheetFunction.Transp ...

不行的。一个是数组，一个是字符串。你在工作表里还得用三键方式嘛。

zk888

hwc2ycy 发表于 2013-3-18 15:54
对了，用temp like "* *"也能判断是否有空单元格，2个*号中间有个空格。

表中的F4:F14区域是固定的。有没有更简单的方法？

hwc2ycy

我上面的代码temp$=写错了，变量名里不能用$符号。