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

[µo°Ý] ¨Ì­q³æ_¼Ð¥Ü«È¤á

[µo°Ý] ¨Ì­q³æ_¼Ð¥Ü«È¤á

¦U¦ì ·s¦~§Ö¼Ö¡G
1..        «È¤á¦WºÙ¼Ð¥Ü¦bA1(¦³¥i¯à§ïÅÜ,¥HA1¬°¨Ì¾Ú)
2..        EÄæ±a¦³¤å¦rªº¬O­q³æ¸¹½X,µL¤å¦rªº³£¤£ºâ­q³æ¸¹½X
3..        ­q³æ¤º®e·|ÀH«È¤á¤U³æ¦ÓÅÜ°Ê(¼W¥[or´î¤Ö,±ø½X¤]·|­«½Æ¥X²{)
       
        BÄ檺»Ý¨D¡G
a)        ·íEÄæ¥X²{²Ä¤@µ§­q³æ¸¹½X,«hBÄæ±a¥XA1ªº«È¤á¦WºÙ (Ex:b1:b13)
        ¤@ª½¨ì¥X²{²Ä2µ§­q³æ¸¹½X¬°¤î
b)        ·íEÄæ¥X²{²Ä2µ§­q³æ¸¹½X,«hBÄæ±a¥XA1ªº«È¤á¦WºÙ2 (Ex:b14:b26)
        ¤@ª½¨ì¥X²{²Ä3µ§­q³æ¸¹½X¬°¤î
        ¨Ì¦¹Ãþ±À¡K
¨Ì­q³æ_¼Ð¥Ü«È¤á.rar (115.23 KB)

¦^´_ 1# PJChen

1..        «È¤á¦WºÙ¬O¼Ð¥Ü¦bA1(¦³¥i¯à§ïÅÜ,¥HA1¬°¨Ì¾Ú)
2..        EÄæ±a¦³¤å¦rªº¬O­q³æ¸¹½X
3..        ­q³æ¤º®e·|ÀH«È¤á¤U³æ¦ÓÅÜ°Ê(¼W¥[or´î¤Ö,±ø½X¤]·|­«½Æ¥X²{)
       
        BÄ檺»Ý¨D¡G
a)        ·íEÄæ¥X²{²Ä¤@µ§­q³æ¸¹½X,«hBÄæ±a¥XA1ªº«È¤á¦WºÙ(Ex:b2:b39)
        ¤@ª½¨ì¥X²{²Ä2µ§­q³æ¸¹½X¬°¤î
b)        ·íEÄæ¥X²{²Ä2µ§­q³æ¸¹½X,«hBÄæ±a¥XA1ªº«È¤á¦WºÙ+2(Ex:b40:b52)
        ¤@ª½¨ì¥X²{²Ä3µ§­q³æ¸¹½X¬°¤î
        ¨Ì¦¹Ãþ±À¡K
¤w±Nªí®æ§ï¬°¦³ªíÀY,½Ð¥H¦¹Àɬ°·Ç...ÁÂÁ   ¨Ì­q³æ_¼Ð¥Ü«È¤á.rar (56.8 KB)

TOP

¦^´_ 2# PJChen

¦³ªÅÀ°§Ú¬Ý¤@¤U ¬O¤£¬O³o¼Ë ·PÁÂ
  1. Public Sub ¤ñ¹ï¼Æ­È½m²ß()
  2. Application.ScreenUpdating = False

  3.     Arr = [A1].CurrentRegion

  4.     For X = 2 To UBound(Arr, 1)
  5.         For Y = 1 To UBound(Arr, 2)
  6.             If Not IsNumeric(Arr(X, 5)) Then
  7.                  Cells(X, 2) = Arr(1, 1)
  8.             End If
  9.         Next Y
  10.     Next X

  11. Application.ScreenUpdating = True
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# °a¤ªºµ

±z¦n,

§Ú§Æ±æ«È¤á¦WºÙ¥i¥H¶ñ¦bBÄæ,¦p¦P³o¼Ëªºµ²ªG,¦A³Â·Ð±z...


¦ý¥Ø«eµ{¦¡°õ¦æµ²ªG¬O³o¼Ë:

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-2-12 19:34 ½s¿è

¦^´_ 4# PJChen

§Ú¬Ý¤£¥X¨Ó >"<  ¥i¤£¥i¥H½ÐPJChen ¤j¤j®Ø°_¨Ó »¡²M·¡¤@ÂI ...  ©êºp ^^"

TOP

¦^´_ 5# °a¤ªºµ

¤£¦n·N«ä,¥i¯à§Úªí¹F±o¤£¦n,§Ú¦bÀɮפ¤©ñ¤@­Ó°õ¦æ«á,·Q­n¹F¦¨ªº(¥¿½T)ªº¤u§@ªí
±z°õ¦æ¬Ý¬Ý,´Nª¾¹D®t§O¦b­þ¡I
¨Ì­q³æ_¼Ð¥Ü«È¤á.rar (29.83 KB)

TOP

¦^´_ 3# °a¤ªºµ
±z¦n,

µ{¦¡µLªk°õ¦æ吔....
¨Ì­q³æ_¼Ð¥Ü«È¤á2.rar (31.89 KB)

TOP

¦^´_ 7# PJChen

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý³o­Ó¬O¤£¬O§A­nªºµ²ªG  ·PÁÂ
  1. Sub ¤ñ¹ï¼Æ­È½m²ß()
  2.     Application.ScreenUpdating = False

  3.     Arr = [A1].CurrentRegion
  4.    
  5.     For X = 2 To UBound(Arr, 1)
  6.         If Not IsNumeric(Arr(X, 5)) And Arr(X, 2) = "" Then
  7.             Cells(X, 2) = Arr(1, 1)
  8.             T = Arr(1, 1) & R
  9.             If R > 1 Then T = Mid(Arr(1, 1), 1, Len(Arr(1, 1)) - 1) & R
  10.             Arr(1, 1) = IIf(R = 0, Arr(1, 1), T)
  11.             If R >= 1 Then Cells(X, 2) = Arr(1, 1)
  12.             R = R + 1
  13.         ElseIf IsNumeric(Arr(X, 5)) And Cells(X - 1, 2) <> "" Then
  14.             Cells(X, 2) = Arr(1, 1)
  15.         End If
  16.     Next X

  17.     Application.ScreenUpdating = True
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# °a¤ªºµ
¯u·PÁ¡I¥¿½T

TOP

¦^´_ 7# PJChen

­è¤~µo²{ ¥[Á`·|®t1 ©Ò¥H§ï¤F¤@¤U ¦³ªÅ¦AÀ°§Ú¬Ý¬Ý¬O¤£¬O§A­nªºµ²ªG ·PÁ   ¯¬  ~ ·s¦~§Ö¼Ö   ¸U¨Æ¦p§A(©p)·N  ~

¨Ì­q³æ_¼Ð¥Ü«È¤á0212.rar (69.92 KB)

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD