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

[µo°Ý] ¹ï¤ñ¤£¬Û¦Pªº¸ê®Æ

¦^´_ 9# Hsieh

ÁÂÁÂHsiehª©¥DÀ°§Ú¸Ñ¨M§xÂZ¤F¡C

TOP

¦^´_ 10# GBKEE
¨S¦³¥¿³W¤èªk
·í§Úµo²{¾ãÄæ·|³Q»{¬°¦³¸ê®Æ®É
¦Ó¥BCODE¨ç¼ÆŪ¨ú¤º®e«o·|¥X¿ù,´Nª¾¹D§t¦³¤£¥i¨£¦r¤¸
­n²M°£¥¦¤£¬O¥Îdelete´N¬O¥Î¸ê®Æ­åªR³Ì§Ö
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh
ÁÂÁÂHsiehªO¥Dªº¸Ñ»¡
·í§Ú°õ¦æ§Aªºµ{¦¡«áªºµ²ªG ¤£¬O¹w´Áªº ¥uµo²{Ctrl+¤è¦VÁ䦳²§ ¦ý¨S¦³´Â¤£¥i¨£¦r¤¸¤è¦V·Q
¥i¬O¥¦¦n¹³¥u­n¥Î¸ê®Æ­åªR´N¥i¥H«ì´_¥¿±` «o§ä¤£¥X¬O¨º¤@­Ó¤£¥i¨£¦r¤¸

TOP

¦^´_ 4# sping
¯Â°Ñ¦Ò
¥ÎFind¤èªk
   
  1. Sub ¦P¤u§@ªí¤£¦PÄæ¦ì¤§¤ñ¹ï()
  2. Dim Rng(1 To 2) As Range, F As Range, d1 As Object, d2 As Object, A As Range
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. Set d2 = CreateObject("Scripting.Dictionary")
  5. d1("¬Û¦PName") = ""
  6. d2("¤£¬Û¦PName") = ""
  7. With Sheets("¦P¤u§@ªí¤§¤ñ¹ï")
  8.     Set Rng(1) = .Range("A3", .Range("A" & Rows.Count).End(xlUp))
  9.     Set Rng(2) = .Range("B3", .Range("B" & Rows.Count).End(xlUp))
  10.     For Each A In .Range(Rng(1).Address & "," & Rng(2).Address)
  11.         If A <> "" Then
  12.             Set F = Rng(IIf(A.Column = Rng(1).Column, 2, 1)).Find(A.Text, lookat:=xlWhole)
  13.             If Not F Is Nothing Then
  14.                 d1(A.Text) = ""
  15.             Else
  16.                 d2(A.Text) = ""
  17.             End If
  18.         End If
  19.     Next
  20. End With
  21. With Sheets("¦P¤u§@ªí¤§¤ñ¹ï")
  22.     .Range("c3:d65536") = ""
  23.     .[c2].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
  24.     .[d2].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
  25. End With
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 14# GBKEE


    ÁÂÁ§A¼ö¤ßÀ°¦£­×§ï¡A§A©Mhsiehª©¥Dªºµ{¦¡½X¹ï§Ú³£«Ü¦³À°§U¡A§Ú·|¯d¤U¨Ó¬ã¨s¡C

TOP

¦pªG¬O¤£¦Pªºexcel©O¡H«ç¼Ë¼g¡Hc:\....?

TOP

Sub sample()

Dim LastRec As Integer
Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim data() As Range
l = 1

Worksheets("Sheet1").Range("A1").Select
ActiveCell.End(xlDown).Select
     LastRec = ActiveCell.Row
     

For j = 1 To LastRec

i = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)

If Sheet1.Cells(i, 2).Value <> Sheet2.Cells(i, 2).Value Then

Sheet1.Cells(i, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(i, 2).Interior.Color = RGB(255, 200, 255)
End If

Next j

End Sub
½Ð°Ýi = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)³o¥y­þ¸Ì¥X¿ù¡H§Ú·Q¦b¤@­Óexcel¤º§ä¥X®à­±ªº¥t¤@­Ó¡]1.xlsx) excel¤º¬Û¦Pªº¦WºÙ¡A¦pªG¥L­Ìªº­È¤£¦P´N§ï¦¨¥t¤@­Ó¡]1.xlsx) excel¤ºªº­È

TOP

¥t¥~½Ð°Ývba¥i§_Åý¤@­Óexcel ¥i¥H¦P®ÉÅý¦h¦ì¥Î®a¨Ï¥Î¡A¿é¤J¸ê®Æ¤ÎÀx¦s¡H

TOP

¤£¦PÀɮ׶¡°µ¤ñ¹ï´N¥²¶·¨â­ÓÀɮ׳£¦b¶}±Òª¬ºA¤UŪ¨ú¸ê®Æ¤ñ¹ï
¤£§«±NÀɮפW¶Ç¥H«K¤F¸Ñ¸ê®Æµ²ºc
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 20# Hsieh


    ­n¦P®É¥´¶}¨S°ÝÃD¡A¦ý¦p¦ó¼g¡H
§Ú¦³¨£¹L¦³¤H¼gªºvba¤£¥Î¥´¶}¨â­ÓÀɮסA´N¥i¥Hvlookup¬Û¦P¦W¡AµM«á´N¦P¦Wªº¬ÛÀ³¸ê®Æ¶Ç¦^¦b·í«eªºsheet¤º¦P¦Wªº¬Û¹ï¦ì¸m

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD