|
本帖最后由 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初始值是多少,它是怎么变化的?
他的初始值是空的,当有第一个符合条件值时,就是第一个符合条件的单元格的值,当有第二个单元格符合条件时,就用原来的值串上第二个,当有第三个符合时,就是第一个和第二个的值串上第三个,如此循环。最后是一串字符串
|
|