Question

vba函数求解释

'作用---返回特定区域中最大值的地址
'Rng ---查找区域
Function returnmaxs(rng)
Dim mx As Double
Dim mycell As Range
If rng.Count = 1 Then returnmaxs = rng.Address(False, False): Exit Function
mx = WorksheetFunction.Max(rng)
For Each mycell In rng
If mycell = mx Then
If Len(returnmaxs) = 0 Then
returnmaxs = mycell.Address(False, False)
Else
returnmaxs = returnmaxs & "," & mycell.Address(False, False)
End If
End If
Next
End Function
此句子当中的

If Len(returnmaxs) = 0 Then
returnmaxs = mycell.Address(False, False)
Else
returnmaxs = returnmaxs & "," & mycell.Address(False, False)
End If
是什么意思
If Len(returnmaxs) = 0 Then‘为什么要判断retuinmaxs的长度

returnmaxs = mycell.Address(False, False)
Else
returnmaxs = returnmaxs & "," & mycell.Address(False, False)’此处的第二个returnmaxsd代表什么意思，能去掉吗
End If

Answer 1

If Len(returnmaxs) = 0 Then
returnmaxs = mycell.Address(False, False)
Else
returnmaxs = returnmaxs & "," & mycell.Address(False, False)
End If
是什么意思

判断变量returnmaxs 的字符长度是不是为0 即没有字符
如果是
returnmaxs赋值为mycell单元格地址.格式为A1格式.后面的false false 是去掉行列的绝对引用符

否则
returnmaxs 赋值为 自身原有的值 加上 "," 和mycell的单元格地址

通过上面的解释 我想你问题补充的问题也应该明白了. 不明白看下面 呵呵

问题补充的回答
不判断returnmaxs 的长度或者说不判断returnmaxs 是不是 空(returnmaxs ="")
那么直接赋值会替换returnmaxs 变量的值
为了保留可能已有的值,那么要判断一下returnmaxs 变量是不是为空 或者长度为0
如果不为空那么赋值是要赋值 returnmaxs 变量的本身 加上要增加的新内容.为了区分 中间加了","号
也就是
returnmaxs = returnmaxs & "," & mycell.Address(False, False)