ç¨vbaåä¸ä¸ªèªå®ä¹å½æ°å¯ä»¥å®ç°ã举ä¾è¯´æï¼
ä¾å¦æè¡¨æ ¼æ°æ®å¦å¾ï¼
ç°è¦æ±æ ¹æ®æ°å¼ä¸éãä¸éå¼æ¾å°ç¸åºçæ°å¼ãå¦å¾ï¼
第ä¸æ¥ï¼ç¼å¶ä¸ä¸ªèªå®ä¹å½æ°ï¼ä»£ç å¦ä¸ï¼
Function czsz(sx, xx, fw) As String
'sxï¼ä¸é xx:ä¸é fw:èå´
Dim sarr(1 To 100, 1 To 2) '1-åºå· 2-æ°å¼
hh = fw.Row
lh = fw.Column
zz = 0
Do While Cells(hh, lh) <> ""
zz = zz + 1
sarr(zz, 1) = Cells(hh, lh).Value
sarr(zz, 2) = Cells(hh, lh + 1).Value
hh = hh + 1
Loop
czsz = ""
For i = 1 To zz
If sarr(i, 2) >= xx And sarr(i, 2) <= sx Then
czsz = czsz & "åºå·" & sarr(i, 1) & ": " & sarr(i, 2) & "; "
End If
Next i
End Function
第äºæ¥ï¼å¨G2è¾å ¥å ¬å¼ï¼=czsz(E2,F2,A2:B21)ãç»æå¦å¾ï¼
第ä¸æ¥ï¼å°G2å ¬å¼ä¿®æ¹æï¼=czsz(E2,F2,A$2:B$21)
第åæ¥ï¼å°G2å ¬å¼ä¸æè³G4,ç»æå¦å¾ï¼