ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ·Q½Ð°Ý°Ý, ·Q²Î­p¤£­«½Æ²M³æ¼Æ¶q,·íAÄæ½d³ò¤£©T©w®É,¤½¦¡­n¦p¦ó§ï?

[µo°Ý] ·Q½Ð°Ý°Ý, ·Q²Î­p¤£­«½Æ²M³æ¼Æ¶q,·íAÄæ½d³ò¤£©T©w®É,¤½¦¡­n¦p¦ó§ï?

¥»©«³Ì«á¥Ñ peter460191 ©ó 2021-8-9 12:41 ½s¿è

·Q½Ð°Ý°Ý, ·Q²Î­p¤£­«½Æ²M³æ¼Æ¶q,·íAÄæ½d³ò¤£©T©w®É,¤½¦¡­n¦p¦ó§ï?
[attachimg]33854

2107261415191d2651df1cf8c7.jpg.thumb.jpg (16.5 KB)

2107261415191d2651df1cf8c7.jpg.thumb.jpg

2107261415191d2651df1cf8c7.jpg.thumb.jpg (16.5 KB)

2107261415191d2651df1cf8c7.jpg.thumb.jpg

peter460191

¦^´_ 1# peter460191

¤è«Kªþ¤WÀɮ׶Ü? ·Ó¤ùÀɬݤ£²M·¡¡AÁÂÁÂ

TOP

·íAÄæ½d³ò¤£©T©w®É¡A¥i³]  "¦WºÙ" ¬°°ÊºA½d³ò¡A¤ñ¸û¦n¼g¤½¦¡

¤W¥\¯àªí - ¤½¦¡ - ¦WºÙºÞ²z­û - ¼W¥[   AA ¦WºÙ¤½¦¡¦p¤U
=OFFSET(Sheet1!$A$2,,,COUNTA(Sheet1!$A:$A)-1)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# samwang


   ¤£¦n·N«ä!¤½¥q·|¾×À£ÁY~~
peter460191

TOP

¦^´_ 3# ML089

ª©¥D,¤£¦n·N«ä!
¤£¬O«Ü¤F¸Ñ­n«ç»ò©w¸q,¤w½Ð¤HÀ°§Ú¥NÀ£ÁYÀɮפF,¥i¬OÁÙ¬OµLªk¤W¶Ç¦Üºô­¶
§Ú­«·s¤W¶Ç¤@­Ó¹ÏÀɽÐÀ°¦£¤@¤U,ÁÂÁ¤F ~~
peter460191

TOP

¦^´_ 4# peter460191


Sub test()
Dim Arr, xD, xD1
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
Arr = Range("A1:B" & [A65536].End(3).Row)
For i = 2 To UBound(Arr)
    xD(Arr(i, 1)) = ""
    xD1(Arr(i, 2)) = ""
Next
[D3] = xD.Count
[E3] = xD1.Count
End Sub

TOP

¦^´_ 6# samwang
ÁÂÁ samwangªº«ü¾É,¥ÎVBA¥i¥H²Î­p¥X¨Ó
¦ýÁÙ¬O·Q°Ý¦pªG¥u¥Î¤½¦¡©Î°}¦C,¦³¿ìªk¥i²Î­p¥X¨Ó¶Ü?
peter460191

TOP

¦^´_ 5# peter460191


1
©T©w½d³ò¤½¦¡
=SUMPRODUCT(1/COUNTIF(A2:A40,A2:A40))

2
¤£©T©w½d³ò¤½¦¡
=SUMPRODUCT(1/COUNTIF(OFFSET(A2,,,COUNTA(A:A)-1),OFFSET(A2,,,COUNTA(A:A)-1)))

3
©w¸q¦WºÙ AA = OFFSET($A$2,,,COUNTA(A:A)-1)

4
¤£©T©w½d³ò¤½¦¡¡A±Ä¥Î"¦WºÙ"²¤Æ
=SUMPRODUCT(1/COUNTIF(AA,AA))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 8# ML089
«D±`ÁÂÁª©¥D,¥i¥H²Î­p¥X¨Ó,¤]³£¤F¸Ñ¥ý©w¸q«á²¤Æ¤½¦¡ªº¥Îªk¤F,±z¤Ó¼F®`¤F~~
peter460191

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD