¥»©«³Ì«á¥Ñ v03586 ©ó 2020-12-14 02:31 ½s¿è
½Ð°Ý¦U¦ì«e½ú
§Ú¦³¼g¤@Óµ{¦¡¥Dn¬On§PÂ_
°²³]¤£¦P¡yIÄæ¦ì¡zªºÈ, ¦ý¬Û¦P¡yJÄæ¦ì¡zªºÈ, «h¡yLÄæ¦ì¡z¬Û¥[¦b¡yMÄæ¦ì¡z(¥[Á`µ²ªG)
¨Ã«O¯d¤@Ó¡yJÄæ¦ì¡zªºÈ, §R°£«½Æªº¡yJÄæ¦ì¡z
¦p¤U¹Ï, ¦ý¥Ø«e°õ¦æ¥X¨Óªºµ²ªG¦³°ÝÃD, ½Ð°Ý¦³«e½ú¥i¥HÀ°¦£«üÂI¶Ü?
- For l = Range("A65536").End(xlUp).Row To 2 Step -1
- If .Cells(l, "I") = .Cells(l - 1, "I") And .Cells(l, "J") = .Cells(l - 1, "J") Then
- .Cells(l - 1, "M") = .Cells(l, "L") + .Cells(l - 1, "L")
- Rows(l).ClearContents
- End If
- Next
-
- Cells.Select
-
- Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, _
- Header:=xlYes
-
½Æ»s¥N½X
½d¨Ò.rar (13.09 KB)
|