½Ð°Ý¦p¦ó±N¦h¤u§@ªíªºªí®æ¸ê®Æ¶×Á`¦b¤@±i¤u§@ªí
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
½Ð°Ý¦p¦ó±N¦h¤u§@ªíªºªí®æ¸ê®Æ¶×Á`¦b¤@±i¤u§@ªí
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-23
|
Sub TEST()
Dim Sht As Worksheet, UR As Range, xR As Range, i%, c&, r&, N&, ARR
ReDim ARR(1 To 30000, 1 To 6)
Sheets("¤u§@ªí2").UsedRange.Offset(1, 0).EntireRow.Delete
For Each Sht In Sheets
If Sht.Name Like "#-#" = False Then GoTo 101
Set UR = Sht.UsedRange
For r = 1 To UR.Rows.Count Step 5
For c = 1 To UR.Columns.Count Step 3
Set xR = UR(r + 1, c)
If Application.Sum(xR(2, 3).Resize(3)) = 0 Then GoTo 99
N = N + 1
ARR(N, 1) = "'" & Sht.Name: ARR(N, 2) = xR(2): ARR(N, 3) = xR(0)
For i = 1 To 3
ARR(N, 3 + i) = xR(i + 1, 3)
Next
99: Next c
Next r
101: Next
[¤u§@ªí2!A2:F2].Resize(N) = ARR
End Sub
Xl0000341.rar (13.95 KB)
==================== |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 2# ã´£³¡ªL
«D±`·PÁ±zªº¨ó§U¡C
¦ý¦³¥t¤@¥ó¨Æ·Q½Ð±Ð±z¡C¤£ª¾¹D±z¤è¤£¤è«Kµy·L»¡©ú¤@¤U±z¼gªºVBA¬O«ç»ò¹B§@ªº¡C
¦]¬°¦pªG¤§«áªí®æ¦³§ï°Ê¡A¦Û¤v·Q¸ÕµÛ¾Þ§@¬Ý¬Ý¡C
¤£¦n·N«ä¡A¦pªG±z¤è«Kªº¸Ü¡A¦A³Â·Ð±z¤F¡AÁÂÁ¡C |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-23
|
¦^´_ 3# gaishutsusuru
1) ¨C3Äæ+¨C5¦æ ¬°¤@Ӱ϶ô
2) "¼ÐÃD¦æ"¦b¨C¤@°Ï¶ôªº²Ä2¦æ, ¥H xR ©w¦ì[«¬¸¹]³o¤@Àx¦s®æ
3) xR¥k²Ä3Äæ¤Uªº3ÓÀx¦s®æ, ¬°¤TӤؤoªº[¼Æ¶q], Y¼Æ¶q¥[Á`¬°0, ªí¥ÜµL°O¿ý, ²¤¹L
4) ¨úxR¤W¤@®æ¬°[?¤é], xR¤U¤@®æ¬°[«¬¸¹¤º®e], ¶ñ¤JArr¬ÛÀ³¦ì¸m
5) ³Ì«á¥HN¬°¦æ¼Æ, ¶ñ¤JÁ`ªí
========================= |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 4# ã´£³¡ªL
±z¦n¡AÁÂÁ±zªº¸Ô²Ó¸Ñ»¡¡A«D±`®e©ö²z¸Ñ¡C
ÁÂÁ±z¡C |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 4# ã´£³¡ªL
ã´£³¡ªL¤j¤j±z¦n¡A
¤£¦n·N«ä¡A¦A¦¸¥´ÂZ¤F¡C
¦bµ{¦¡½X¤¤¡A¡uIf Sht.Name Like "#-#" = False Then GoTo 101¡v¡Aªí¥Ü©Ò¦³ªº#-#¦WºÙªº¤u§@ªí³£·|³QŪ¨ú¡C
¦ý§Úèèµo²{¤u§@ªí¤¤¦³ªº¬O#-#-#ªº¦WºÙ¡C©Ò¥H¦pªGn¦P®É³£¥i¥HŪ¨ú"#-#" ©M"#-#-#"¦WºÙªº¤u§@ªí¡A½Ð°Ýn¦p¦ó§ó§ï©O?
§Ú¤Wºô¬d¸ê®Æ¡G If Sht.Name Like "#-#" And Sht.Name Like "#-#-#"= False Then GoTo 101¡C¦ý«o¤£¯à¦P®ÉŪ¨ú³o2ºØ¦WºÙªº¤u§@ªí¡C
¦A«ô°U±z¨ó§U´£¨Ñ¤@¨Ç·Qªk¡A·PÁ±z¡C |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-23
|
¦^´_ 6# gaishutsusuru
If (Sht.Name Like "#-#") + (Sht.Name Like "#-#-#") = 0 Then GoTo 101
"#-#" ªí¥Ü1¦ì¼Æªº¦ê±µ, ¦p:5-6, Y¬°5-16§Y¬°¤£²Å¦X,
¥ç§Y¤@Ó"#"¬°¤@ӼƦr. "####" ´N¬O«ü"0000"~"9999"ªº½d³ò,
"*#-#*" , ¥un¤¤¶¡¬O1¦ì¼Æ¦ê±µªº³£²Å¦X, "*"¥i¥H¬O¥ô·Nªø«×ªº¦r¤¸(¼Æ¦r©Î¤¤^¤å©Î²Å¸¹)
"??-??" , «h¬O"-"ªº«e«á©w¥u¯à¦³2Óªø«×ªº¥ô·N¦r¤¸ |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 7# ã´£³¡ªL
ÁÂÁ±z¦A¦¸¸Ô²Óªº¸Ñ»¡¡AÁÂÁ |
|
|
|
|
|
|