eric093

§Ú¥HGBKEEª©¥D´£¨Ñªº¶i¦æ¤F¸Ñ«á¡A­n¦A½Õ¾ã±NSHEETS("¦W³æ")ªºBÄæ¦ì¤]¦P®É¦^¼g¦bSHEETS("¤ñ¹ï«á¸ê®Æ")¡A¸g§ï¤F¤@¤U«á¡Aµ²ªG±a¥Xªº¸ê®Æ¤£¥¿½T¡A½Ð¤j®a«ü¾É§Ú¡I


Sub tt()
Dim rng(1 To 5) As Range, E, K As Range

Set rng(1) = Sheets("¦W³æ").Range("a2")

Set rng(3) = Sheets("¸ê®Æ¨Ó·½").Range("a:a")

Do While rng(1) <> ""
Set rng(4) = rng(3).Find(rng(1), lookat:=xlWhole)

If Not rng(4) Is Nothing Then
       rng(3).Replace rng(1), "=book", xlWhole
       With rng(3).SpecialCells(xlCellTypeFormulas, xlErrors)
            .Value = rng(1)
            With rng(1)
             For Each E In .Cells
                For Each K In .Cells
               
                   With Sheets("¤ñ¹ï«á¸ê®Æ")
                         Cells(.UsedRange.Rows.Count + 1, "C").Value = K.Offset(, 1)
                        Cells(.UsedRange.Rows.Count, "A").Value = E
                        Cells(.UsedRange.Rows.Count, "B").Value = E.Range("B1")
                     
               
                   End With
                Next
             Next
             End With
       End With
      
      
End If
Set rng(1) = rng(1).Offset(1)


Loop




End Sub

GBKEE

¦^´_ 11# eric093

1. '¨S¬Ý¨ìÀɮפ£¸Ñ¬°¦ó­n
   
2. For Each E In .Cells      
   
3.                 For Each K In .Cells
   
4. '¦³¨â­Ó  For Each  , ¤@­Ó  For Each ¤£¦æ¶Ü?
   
5.                    With Sheets("¤ñ¹ï«á¸ê®Æ")
   
6.                     «e­±­n      .Cells(.UsedRange.Rows.Count + 1, "C").Value = K.Offset(, 1)
   
7.                     «e­±­n     .Cells(.UsedRange.Rows.Count, "A").Value = E
   
8.                     «e­±­n     .Cells(.UsedRange.Rows.Count, "B").Value = E.Range("B1")                     
   
9.                
   
10.                    End With
    
11.                 Next
    
12.              Next

½Æ»s¥N½X

eric093

¦^´_ 12# GBKEE


    ¥ýÁÂÁª©¥D¬Ý¨ì§Úªº¨D±Ï¡I
§Ú»¡©ú¤@¤U~
­ìµ{¦¡¤º®e¤w¥i¥H¦^¼g¸ê®Æ¨Ó·½¡]§Ú¤]§ËÀ´¤F¡^¡A¦ý§Ú¹Á¸Õ­n±N¦W³æºP­¶ªºBÄæ¡]©Ê§O¡^¤]¤@¨Ö±a¤J¤ñ¹ï«á¸ê®Æ¡I
§Ú¸Õ¤F¦n¤[¡A¤]¤Wºô¬d¤F¦n¤[¡A§Ú¹ê¦b¯à¤O¤£¨¬¡AµLªk°Ñ³z¦p¦ó§ï¡I

GBKEE

¦^´_ 13# eric093
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub tt()
   
3.     Dim Rng(1 To 3) As Range, E As Range
   
4.     Set Rng(1) = Sheets("¦W³æ").Range("a2")
   
5.     Set Rng(2) = Sheets("¸ê®Æ¨Ó·½").Range("a:a")
   
6.     Sheets("¤ñ¹ï«á¸ê®Æ").UsedRange.Offset(1).Clear ''²M°£Â¦³¸ê®Æ
   
7.     Do While Rng(1) <> ""
   
8.         Set Rng(3) = Rng(2).Find(Rng(1), lookat:=xlWhole)
   
9.         If Not Rng(3) Is Nothing Then
   
10.             Rng(2).Replace Rng(1), "=book", xlWhole
    
11.             With Rng(2).SpecialCells(xlCellTypeFormulas, xlErrors)
    
12.                 .Value = Rng(1)
    
13.                 For Each E In .Cells
    
14.                     With Sheets("¤ñ¹ï«á¸ê®Æ")
    
15.                         With .Cells(.UsedRange.Rows.Count + 1, "A")
    
16.                             .Range("A1") = E
    
17.                             .Range("B1") = E.Range("B1")
    
18.                             .Range("C1") = Rng(1).Range("B1")
    
19.                         End With
    
20.                    End With
    
21.                 Next
    
22.             End With
    
23.         End If
    
24.         Set Rng(1) = Rng(1).Offset(1)
    
25.     Loop
    
26. End Sub

½Æ»s¥N½X

eric093

ÁÂÁª©¤j
§ÚÀ´§Ú¥d¦b­þ¤F¡I

handsometrowa

¦^´_ 6# GBKEE


    ½Ð°ÝG¤j
Ãö©ó¤U­±¤T¥y¡A§Ú¦³ÂI¤£¸Ñ¡A¬°¤°»ò§ä¥X¬Û¦P¤H¦W¤§«á¡A»Ý­n±N½d³òÅܦ¨¿ù»~  ¡A«o¤S­n¦b«á­±§â¤H¦W¤S§ï¥¿½T©O....@@?

Rng(1).Replace Rng(2), "=gbkee", xlWhole                '±N¬Û¦Pªº¤H¦W´À´«¬°¿ù»~­È
            With Rng(1).SpecialCells(xlCellTypeFormulas, xlErrors)  '¯S®íªº½d³ò(¤½¦¡,¿ù»~­È)
                .Value = Rng(2)  

GBKEE

¦^´_ 16# handsometrowa

1. Option Explicit
   
2. Sub tt()
   
3.     Dim Rng(1 To 3) As Range, E As Range
   
4.     Set Rng(1) = Sheets("¦W³æ").Range("a2")
   
5.     Set Rng(2) = Sheets("¸ê®Æ¨Ó·½").Range("a:a")
   
6.     Sheets("¤ñ¹ï«á¸ê®Æ").UsedRange.Offset(1).Clear ''²M°£Â¦³¸ê®Æ
   
7.     Do While Rng(1) <> ""
   
8.         Set Rng(3) = Rng(2).Find(Rng(1), lookat:=xlWhole)
   
9.         If Not Rng(3) Is Nothing Then    '½T©w½d³ò¦³Rng(1)ªº¦r¦ê
   
10.             '³q±`­n·j´M¯S©wªº¸ê®Æ¸ê¦ê·|¥ÎFIND ¤@¤@ªº·j´M
    
11.             '³o¸Ì¥ÎReplace ¤èªk ¤@¦¸±N·j´M¯S©wªº¸ê®Æ¸ê¦ê,§ï¬°¿ù»~­È
    
12.             '¤]¬O¤@¤¤·j´M¯S©wªº¸ê®Æ¸ê¦êªº¤èªk
    
13.             Rng(2).Replace Rng(1), "=book", xlWhole
    
14.             With Rng(2).SpecialCells(xlCellTypeFormulas, xlErrors) '¯S®íªº½d³ò(¤½¦¡,¿ù»~­È)
    
15.                                                                    'Rng(2)½d³ò¦³"¿ù»~­È"ªºÀx¦s®æ
    
16.                 .Value = Rng(1)  '§ó¥¿¦^­ì¦³ªº¸ê®Æ
    
17.                 For Each E In .Cells
    
18.                     With Sheets("¤ñ¹ï«á¸ê®Æ")
    
19.                         With .Cells(.UsedRange.Rows.Count + 1, "A")
    
20.                             .Range("A1") = E
    
21.                             .Range("B1") = E.Range("B1")
    
22.                             .Range("C1") = Rng(1).Range("B1")
    
23.                         End With
    
24.                    End With
    
25.                 Next
    
26.             End With
    
27.         End If
    
28.         Set Rng(1) = Rng(1).Offset(1)
    
29.     Loop
    
30. End Sub

½Æ»s¥N½X

yen956

¦^´_ 4# Hsieh
½Ð°Ý¤j¤j¡G
Dim A As Range, Rng As Range, Ar(), s&
¤¤ªº s& §@¥Î¬O¤°»ò?
(§Ú¥Î "Dim s&" ¯¸¤º·j´M¹L¤F, ·j¤£¨ì)

GBKEE

¦^´_ 18# yen956

Dim A As Long

   

VBA ªº»¡©ú

Long ¸ê®Æ«¬ºA Long (ªø¾ã¼Æ)ÅܼƫY¥H½d³ò±q -2,147,483,648 ¨ì 2,147,483,647 ¤§ 32 ¦ì¤¸ (4 ­Ó¦ì¤¸²Õ) ¦³¸¹¼Æ¦r§Î¦¡Àx¦s¡CLong ªº«¬ºA«Å§i¦r¤¸¬° &¡C

yen956

ÁÂÁÂGBKEE¤j, ¸Ô²Óªº¸Ñ»¡,
¤@¦V«Ü¤Ö¥ÎOption Explicit,
³ºµM³s³Ì°ò¥»ªº¸ê®Æ«¬ºA³£§Ñ¤F,
­n¦n¦nª¦¤å¤F, ÁÂÁÂ.