[已解决]新手求助VBA

969341591

VBA数组-5：数组与单元格格式.rar (167.99 KB, 下载次数: 2)

2013-5-23 11:57 上传

点击文件名下载附件               在学习VBA80集第24集时遇到了一段代码主要是关于引号的,不懂请大家帮助.
Sub c()
   Dim arr, t
   Dim x As Integer
   Dim sr As String, sr1 As String
   arr = Range("d2:d" & Range("a65536").End(xlUp).Row)
   For x = 1 To UBound(arr)
      If arr(x, 1) > 500 Then
         sr1 = sr
         sr = sr & "a" & x + 1 & ":d" & x + 1 & ","
      End If
   Next x
End Sub
从本地窗口看连接后的sr="a2:d2,a7:d7,"
问题1:引号从何而来?
问题2:为什么连接后不是sr="a2:d2",a7:d7呢?

最佳答案

月排行榜 / 总排行榜

1032446692

2013-5-23 12:08

这是因为sr是字符串，在本地窗口显示外带有引号，其实是没有的  你可以输出到单元格中看看就知道了

跳转到最佳答案楼层

hwc2ycy

本地窗口里值前后的引号是为了区分加上去的，在中间的引号才是值中有的。

1032446692

这是因为sr是字符串，在本地窗口显示外带有引号，其实是没有的  你可以输出到单元格中看看就知道了

969341591

1032446692 发表于 2013-5-23 12:08
这是因为sr是字符串，在本地窗口显示外带有引号，其实是没有的  你可以输出到单元格中看看就知道了

谢谢您的答复,我终于弄明白了.

969341591

hwc2ycy 发表于 2013-5-23 12:08
本地窗口里值前后的引号是为了区分加上去的，在中间的引号才是值中有的。

非常感谢你的答复,我明白了.我想还是把"最佳答案"给班级管理员,这样会有更多的热心人来答疑解惑.很抱歉.

hwc2ycy

969341591 发表于 2013-5-23 20:31
非常感谢你的答复,我明白了.我想还是把"最佳答案"给班级管理员,这样会有更多的热心人来答疑解惑.很抱歉.

我不是班级管理员么，{:412:}，{:3512:}

1032446692

969341591 发表于 2013-5-23 20:31
非常感谢你的答复,我明白了.我想还是把"最佳答案"给班级管理员,这样会有更多的热心人来答疑解惑.很抱歉.

他也是班级管理员   更牛的班级管理员

969341591

hwc2ycy 发表于 2013-5-23 20:48
我不是班级管理员么，，

你的吩咐我知道了,谢谢你.你是班级管理员但我觉得你对我来说太熟悉了仿佛是王中王的感觉所以没评你为最佳,抱歉.