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

VBA°µ¿z¿ï

VBA°µ¿z¿ï

¦]¸ê®Æ¦³¤W¤dµ§¡K
¥i§_¯à¥ÎVBA°µ¿z¿ï..¦³°Ñ¦Ò¥»ºô¯¸¤§¿z¿ï½d¨Ò..ÁÙ¬O°µ¤£¤Ó¥X¨Ó..
°ÝÃD¤@¡B
¿z¿ïCÄæ¡BDÄæ¡BEÄæ¦ì°µ¬°·Ç«h
±Æ¦C¶¶§Ç¡A¥B¦b¢ÕÄæ¯à§_¼Ð¥Ü¤@¤U¡y­«ÂнЬd®Ö¡z
°ÝÃD¤G¡B
¥i§_¥[µùÃC¦â°µ¬°¤ñ¹ï¨Ì¾Ú
°ÝÃD¤T¡B
SHEET1¬°¸ê®Æ°Ï
¿z¿ï¥X¨Ó¥i§_¦bCOPY¨ìSHEET2

½Ð¤j¤j¨ó§U¤@¤U¡K·P®¦

Àˬd­«ÂÐ.rar (3.33 KB)

¿z¿ïCÄæ¡BDÄæ¡BEÄæ¦ì°µ¬°·Ç«h
CÄæ¡BDÄæ¡BEÄæ¦ì¬OAND¶Ü
ss

TOP

¦^´_ 2# sunnyso


    »¡¿ù...
¬O°µ±Æ§Ç¿z¿ï..¦]µ§¼Æ¦³¤W¤dµ§...­n±qªí³æ¤¤§ì¥X­«ÂÐ

TOP

¦^´_  sunnyso
    »¡¿ù...
¬O°µ±Æ§Ç¿z¿ï..¦]µ§¼Æ¦³¤W¤dµ§...­n±qªí³æ¤¤§ì¥X­«ÂÐ
sillykin µoªí©ó 2013/8/31 13:34

[±Æ§Ç¿z¿ï..  §ì¥X­«ÂÐ ]  ½Ð©w¸q: ­þ¸Ìªº­«ÂÐ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂG¤j¥X¤â¨ó§U..
BÄæ©m¦W1(¤£¥ÎºÞ¦¹Äæ¦ì­È)
¤ñ¹ïCÄæ¡BEÄæ
CÄæ©m¦W2(­«ÂÐ)
EÄæ§Ç¸¹(­«ÂÐ)

TOP

¦^´_ 6# sillykin
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 3) As Range, i As Integer, E As Range
  4.     With Sheets("Sheet1")          ' "Sheet1" ¤u§@ªí¦WºÙ
  5.         .Cells.Interior.ColorIndex = xlNone
  6.         Set Rng(1) = .Range("A:F").SpecialCells(xlCellTypeConstants)                              '¸ê®Æ®w
  7.         .Range("G:G") = ""
  8.         Set Rng(3) = Rng(1).Rows(1)
  9.         For i = 3 To 5                                      'CÄæ¡BDÄæ¡BEÄæ¦ì°µ¬°·Ç«h
  10.             .Cells(1, .Columns.Count) = Rng(1).Cells(1, i)  'Äæ¦ì°µ¬°·Ç«h
  11.             Rng(1).Columns(i).AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True       '¿z¿ï¤£­«½Æªº¸ê®Æ
  12.             Set Rng(2) = .Range(.Cells(2, .Columns.Count), .Cells(2, .Columns.Count).End(xlDown))  '¿z¿ï¥Xªº¸ê®Æ½d³ò
  13.             For Each E In Rng(2)
  14.                 If Application.CountIf(Rng(1).Columns(i), E) > 1 Then                              ' ¸ê®Æ¦b¸ê®Æ®w¸Ìªº¸ê®Æ¼Æ¤j©ó1
  15.                     With Rng(1).Columns(i).Cells
  16.                         .Replace E, "=XXX", xlWhole                                                '§ó§ï¬°¿ù»~­È
  17.                         With .SpecialCells(xlCellTypeFormulas, xlErrors)                           '¿ù»~­Èªº¯S®í½d³ò¸Ì
  18.                             .Value = E                                                             '¸m¦^­ì¨Óªº¸ê®Æ
  19.                             Set Rng(3) = Union(Rng(3), .Cells)                                     '¥[¤J½d³ò
  20.                             .Interior.Color = vbYellow
  21.                             .Offset(, Rng(1).Columns.Count + 1 - i) = "­«ÂнЬd®Ö"
  22.                         End With
  23.                     End With
  24.                 End If
  25.             Next
  26.         Next
  27.         .Cells(1, .Columns.Count).EntireColumn = ""
  28.         Set Rng(3) = Application.Intersect(.Cells, Rng(3).EntireRow)  '¾ã¦X¬°¾ã¦C
  29.     End With
  30.     With Sheets("Sheet2")
  31.         .Cells.Clear
  32.         Rng(3).Copy .Range("A1")
  33.         .Cells.Interior.ColorIndex = xlNone
  34.         .Cells.EntireColumn.AutoFit
  35.     End With
  36. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE
½Ð±Ð±z¡G
¦¹³B±z¦w±Æ  .Replace E, "=XXX", xlWhole  ªº§@¥Î¦ó¦b¡H
¥¦¤S»P With .SpecialCells(xlCellTypeFormulas, xlErrors) ¤§¶¡
¦³¦óÃöÁp¡H
ÁÂÁ±z¡I

TOP

¦^´_ 8# c_c_lai
.Replace E, "=XXX", xlWhole  ªº§@¥Î¦ó¦b¡H  ±N¸ê®Æ®w­n·j´Mªº¦r¦ê¤@¦¸Åܬ°µL®Äªº¤½¦¡(¿ù»~­È)
With .SpecialCells(xlCellTypeFormulas, xlErrors) ->½d³ò¤¤ªº¯S®íÀx¦s(¿ù»~­È)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# GBKEE


    .Cells(1, .Columns.Count).EntireColumn = ""
        Set Rng(3) = Application.Intersect(.Cells, Rng(3).EntireRow)  '¾ã¦X¬°¾ã¦C

½Ð°Ýg¤jª©¥D..¤W­±³o¤G±øªº·N«ä¬O¤°»ò..¦³ÂI¬Ý¤£¤ÓÀ´...

TOP

¦^´_ 11# sillykin
Rng(3)¦bµ{¦¡¤¤°õ¦æ¤@ª½¬O¤£³sÄòªº°Ï¶ô(Äæ¼Æ¦ì¸m¤£¤@¼Ë),µLªk¥ÎCopy ªº¤èªk
Set Rng(3) = Application.Intersect(.Cells, Rng(3).EntireRow)  '¾ã¦X¬°¾ã¦C(Äæ¼Æ¦ì¸m¤@¼Ë)¥i¤@°_Copy ½Æ»s¨ì¨ä¥L¦a¤è
  1. EntireRow ÄÝ©Ê
  2. ½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t«ü©w½d³òªº¾ã­Ó¦C (©Î­Y¤z¦C)¡C°ßŪ
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD