¡mµo°Ý¡nvba-¦W³æ¤ñ¹ï¬Û²Å¦X¦^¼g¸ê®Æ

eric093

½Ð±Ð¦U¦ì°ª¤â¡AÃö©ó¤ñ¹ï¦W³æªºvba¼gªk¡A¥u­n²Å¦X¡m¸ê®Æ¨Ó·½¡nªºAÄæ¦ì²Å¦X¡m¦W³æ¡nºP­¶ªº¤H¦W¡A§Y±N¯S©wªºÄæ¦ì¦^¼g¦b¥t¤@­Ó¤u§@­¶¡]¤ñ¹ï«á¸ê®Æ¡^¡A
¥Ñ©ó¸ê®Æ¨Ó·½¨C¤é·|¦³¼Æ¤dµ§¡A©Ò¥H¡A§Ú¼g¤F²³æªºµ{¦¡½X«á¡A³q±`³£­nRUN«Ü¤[~¤£ª¾¹D¦³¤°»ò¤èªk¥i¥H¦A§Ö¨Ç¡I

Sub ¤ñ¹ï¦W³æ()

Sheets("¤ñ¹ï«á¸ê®Æ").Select
Cells.Clear


Sheets("¸ê®Æ¨Ó·½").Select
k = Sheets("¸ê®Æ¨Ó·½").Range("a65536").End(xlUp).Row
p = Sheets("¦W³æ").Range("a65536").End(xlUp).Row

Sheets("¤ñ¹ï«á¸ê®Æ").Cells(1, 1).Value = Sheets("¸ê®Æ¨Ó·½").Cells(1, 1)
Sheets("¤ñ¹ï«á¸ê®Æ").Cells(1, 4).Value = Sheets("¸ê®Æ¨Ó·½").Cells(1, 3)
Sheets("¤ñ¹ï«á¸ê®Æ").Cells(1, 5).Value = Sheets("¸ê®Æ¨Ó·½").Cells(1, 4)
  c = 2
For n = 2 To k
       For m = 1 To p

  If Sheets("¸ê®Æ¨Ó·½").Cells(n, 1) = Sheets("¦W³æ").Cells(m, 1) Then                     
        Sheets("¤ñ¹ï«á¸ê®Æ").Cells(c, 1).Value = Sheets("¸ê®Æ¨Ó·½").Cells(n, 1)
         Sheets("¤ñ¹ï«á¸ê®Æ").Cells(c, 3).Value = Sheets("¸ê®Æ¨Ó·½").Cells(n, 3)
        Sheets("¤ñ¹ï«á¸ê®Æ").Cells(c, 4).Value = Sheets("¸ê®Æ¨Ó·½").Cells(n, 4)
         
               c = c + 1
              
               
   
   End If
    Next
  Next
  
  

End Sub

yen956

¦^´_ 21# GBKEE
¨S¿ù, §ï¶i¤¤.
ÁÂÁÂG¤j¦A¤T«ü¾É, ÁÂÁÂ!!

GBKEE

¦^´_ 20# yen956
   

¤@¦V«Ü¤Ö¥ÎOption Explicit,

¦pµ{¦¡Ãe¤j¨Ç,³o²ßºD¤£¦n.

yen956

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

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

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

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

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)  

eric093

ÁÂÁª©¤j
§ÚÀ´§Ú¥d¦b­þ¤F¡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