Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2747|回复: 16

[已解决]麻烦解释下这变量metest ?

[复制链接]
发表于 2013-7-2 09:11 | 显示全部楼层 |阅读模式
本帖最后由 sdada 于 2013-7-2 10:21 编辑

Sub aaa()
Application.ScreenUpdating = False
    Dim r&
    For r = 5 To Range("G65536").End(3).Row
        If Cells(r, "M") <> "" Then
            Cells(r, "P") = "(" & Cells(r, "G") & "/" & Cells(r, "H") & "*" & Cells(r, "I") & ")" & Cells(r, "M")
            metest = metest & Cells(r, "P").Value & ","
        End If
    Next
    Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xls"
    Range("F8") = Left(metest, Len(metest) - 1)
    Workbooks("B.xls").Close True
Application.ScreenUpdating = True
End Sub
这变量 metest初始值是多少,它是怎么变化的?
最佳答案
2013-7-2 09:20
他的初始值是空的,当有第一个符合条件值时,就是第一个符合条件的单元格的值,当有第二个单元格符合条件时,就用原来的值串上第二个,当有第三个符合时,就是第一个和第二个的值串上第三个,如此循环。最后是一串字符串
发表于 2013-7-2 09:20 | 显示全部楼层    本楼为最佳答案   
他的初始值是空的,当有第一个符合条件值时,就是第一个符合条件的单元格的值,当有第二个单元格符合条件时,就用原来的值串上第二个,当有第三个符合时,就是第一个和第二个的值串上第三个,如此循环。最后是一串字符串
回复

使用道具 举报

 楼主| 发表于 2013-7-2 09:36 | 显示全部楼层
lyf7276 发表于 2013-7-2 09:20
他的初始值是空的,当有第一个符合条件值时,就是第一个符合条件的单元格的值,当有第二个单元格符合条件时 ...

它的初值不是0???
回复

使用道具 举报

发表于 2013-7-2 09:46 | 显示全部楼层
本帖最后由 lyf7276 于 2013-7-2 09:48 编辑

它的初始值是空,,你可以按F8来看它的变化。你这个例子中,它最后得到的是字符串。
回复

使用道具 举报

发表于 2013-7-2 09:49 | 显示全部楼层
本帖最后由 lyf7276 于 2013-7-2 09:50 编辑

如果先声明了meste=0,初始值就是0.
回复

使用道具 举报

 楼主| 发表于 2013-7-2 09:49 | 显示全部楼层
lyf7276 发表于 2013-7-2 09:46
它的初始值是空,,你可以按F8来看它的变化。你这个例子中,它最后得到的是字符串。

怎么知道它的初值是0还是空串?
回复

使用道具 举报

 楼主| 发表于 2013-7-2 09:50 | 显示全部楼层
lyf7276 发表于 2013-7-2 09:49
如果先声明了,初始值就是0

怎么声明?
回复

使用道具 举报

发表于 2013-7-2 09:51 | 显示全部楼层
metest=0
回复

使用道具 举报

发表于 2013-7-2 09:52 | 显示全部楼层
如果一开始没指定,就是空,你可以用来累加或串字符串
回复

使用道具 举报

 楼主| 发表于 2013-7-2 09:57 | 显示全部楼层
lyf7276 发表于 2013-7-2 09:51
metest=0


他的初始值是空的,当有第一个符合条件值时
就是metest =  & Cells(r, "P").Value & "," 这前面多了个 &
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-6 14:04 , Processed in 0.360489 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表