¦p¦ó¥h§äÂ÷¦Û¤v³Ìªñªº­È?

ÂŤÑÄR¦À

¨D­È.rar (7.45 KB)

¤U¸ü¦¸¼Æ: 5

2024-2-4 21:20

ª©¤W¤j¤j¡A½Ð°Ý¦p¦Pªþ¥ó¤¤ªºÀɮ׼ХܡA¦p¦ó¼g¨ç¼Æ¥h´M§äÂ÷¦Û¤v³Ìªñªº­È¥h°µ¬Û´î©O?

Andy2483

¦^´_ 1# ÂŤÑÄR¦À


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
¥H¤UÃìµ²©«©Î³\¾A¦X«e½úªº»Ý¨D,¦ý¬O¦n¹³­n¥ÎVBA
https://forum.twbts.com/viewthre ... &from=favorites

hcm19522

(·j´M½s¸¹12384) googleºô§}:https://hcm19522.blogspot.com/

ÂŤÑÄR¦À

¦^´_ 3# hcm19522

H¤j¡A·PÁ§Aªº¦^ÂСA¦ý§Ú¦³ÂI¬Ý¤£¤ÓÀ´¡A¯à¤j­P»¡©ú¤@¤U¦¹¨ç¼Æ¶Ü?

­ã´£³¡ªL

K2/°}¦C¤½¦¡/¥k©Ô¤U©Ô
=IF(OR($C$1:$F1=C2),G2-MOD(MAX(($C$1:$F1=C2)*(ROW($A$1:$A1)*10^5+$G$1:$J1)),10^5),"")

¥H"¦C¸¹"*10^5 + ¼Æ¦r...¨D¥X³Ì¤j­È, ¦AMOD¾l¼Æ...§Y¬O¤W¤@­Ó³Ì«á¥X²{ªº¼Æ¦r

hcm19522

¦^´_ 4# ÂŤÑÄR¦À


    ¦³¥t¸Ñ ¸û²³æ

ÂŤÑÄR¦À

¦^´_ 5# ­ã´£³¡ªL


    ­ã¤j¡A¨ç¼Æ¤º®e¦³»Ý­n§ó§ï¶Ü?§Ú½Æ»s¶K¤W«á¥X²{¿ù»~­È

Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß¦r¨å,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:

¤U¸ü (47.7 KB)

2024-2-5 14:09

°õ¦æµ²ªG:

¤U¸ü (46.56 KB)

2024-2-5 14:09

Option Explicit
Sub test()
Dim i&, Z, xA As Range, T$
Set Z = CreateObject("Scripting.Dictionary")
Set xA = [C2:H5]
For i = 1 To xA.Count
   T = xA(i): xA(i)(1, 9) = IIf(Z(T) = "", "", xA(i)(1, 5) - Z(T)): Z(T) = xA(i)(1, 5)
Next
End Sub

­ã´£³¡ªL

¦^´_ 7# ÂŤÑÄR¦À


°}¦C¤½¦¡
Ctrl + Alt, Enter ¤TÁ䧹¦¨

ÂŤÑÄR¦À

¦^´_ 9# ­ã´£³¡ªL


    ??¡A­ã¤j¡A§Ú¤£¤ÓÀ´§Aªº·N«ä