ªð¦^¦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)

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

ÁÂÁ·Ǥjªº´£ÂI ³o­ÓÅÞ¿è§ó²M·¡ ¥ý¦¬¤U¤F
:)

TOP

Sub TEST()
Dim Arr, i&, T$, N&
Arr = Range([e1], [c65536].End(xlUp))  '¥HCÄæÀˬd³Ì«á¤@µ§
T = [a1]   'A1¦WºÙ¤å¦r
For i = 2 To UBound(Arr)
    If Arr(i, 3) Like "[A-z]*#*" Then N = N + 1 'EÄæ±a¦³[­^¤å+¼Æ¦r], ²Ö¥[1
    Arr(i - 1, 1) = T & IIf(N > 1, N, "")  '¦WºÙ+§Ç¸¹(N>=2)
Next i
[B2].Resize(UBound(Arr) - 1) = Arr
End Sub

TOP

¦^´_ 10# °a¤ªºµ
¤µ¤Ñ¨Ï¥Î®É¥¿¦nµo²{¦³°ÝÃD,¯u¬O¤Î®É«B,·PÁ¡I

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

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

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

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

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

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

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

¦^´_ 4# PJChen

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

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD