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

½Æ»sÀx¦s®æÃC¦â°ÝÃD

½Æ»sÀx¦s®æÃC¦â°ÝÃD

½Ð¦U¦ì¤j®vÀ°¦£

¤u§@ªíA¨ì¤u§@ªíE¤¤¶À¦âÀx¦s®æ

¬Ò¬°Âǥѳ]©w¤Æ®æ¦¡±ø¥ó¦ÓÅܦ¨¶À¦âÀx¦s®æ

¤µ·Q½Æ»s¤u§@ªíAÀx¦s®æa1:a100ªº¼Æ¦r¤ÎÃC¦â

Âà¸m¶K¦b¤u§@ªíÁ`ªíb2:cw2¤W

½Æ»s¤u§@ªíBÀx¦s®æa1:a100ªº¼Æ¦r¤ÎÃC¦â

Âà¸m¶K¦b¤u§@ªíÁ`ªíb3:cw3¤W

¥H¦¹Ãþ±À¦Ü¤u§@ªíE

ªþÀɬ°¤w§¹¦¨ªº½d¨Ò½Ð°Ñ¦ÒÁÂÁÂ!! Book1.rar (7.84 KB)
an

  1. Sub test()
  2. For i = 1 To 5
  3. Set c = Sheets(i).[a1:a100]
  4. For Each k In c
  5. If Not Sheets(i).[d1:k1].Find(k, , , 1) Is Nothing Then
  6. k.Interior.ColorIndex = 6
  7. End If
  8. Next
  9. c.Copy
  10. Sheets("Á`ªí").Cells(i + 1, 2).PasteSpecial Transpose:=True
  11. Application.CutCopyMode = False
  12. Next
  13. End Sub
½Æ»s¥N½X

TOP

«D±`·PÁÂo¤j®vªºÀ°¦£,µ{¦¡«Ü¦n¥Î,À°¤F¤p¤k¤l1­Ó¤j¦£

¤p¤k¤l¤£§÷ÁٽФj®v¦AÀ°1­Ó¦£,¦]·Q§â³o­Óµ{¦¡´¡¶i¨ä¥Lµ{¦¡¤§¤¤

¯à¤£¯à¤£¥Î°j°éªº¤è¦¡¼gªºµ{¦¡,¦]¬°¦b¨ä¥LªºÀɮפ¤,¤u§@ªíÁ`ªí¦WºÙ¶¶§Ç¼Æ¶q¬Ò¤£1¼Ë

¤p¤k¤l¥\¤O¤£¨¬,½Ð¤j®vÀ°¦£,ÁÂÁÂ!!
an

TOP

¦^´_ 3# an13755
  1. Sub Ex()
  2.     Dim Á`ªí As String, Sh As Worksheet, E As Range, i As Integer
  3.     With ActiveWorkbook
  4.         Á`ªí = InputBox("¿é¤JÁ`ªí¦WºÙ", , .ActiveSheet.Name)
  5.         If Á`ªí = "" Then Exit Sub
  6.         On Error GoTo A:
  7.         .Sheets(Á`ªí).Activate
  8.         For Each Sh In .Sheets
  9.             If Sh.Name <> Á`ªí Then
  10.                 For Each E In Sh.[a1:a100]
  11.                     If Not Sh.[d1:k1].Find(E, , , 1) Is Nothing Then
  12.                         E.Interior.ColorIndex = 6
  13.                     End If
  14.                 Next
  15.                 Sh.[a1:a100].Copy
  16.                 ActiveWorkbook.Sheets(Á`ªí).Cells(i + 2, 2).PasteSpecial Transpose:=True
  17.                 i = i + 1
  18.             End If
  19.         Next
  20.     End With
  21.     Application.CutCopyMode = False
  22. A:
  23.     If Err.Number > 0 Then
  24.         MsgBox "Á`ªí ¦WºÙ¿ù»~"
  25.     Else
  26.         MsgBox "¤u§@ §¹¦¨ !!"
  27.     End If
  28. End Sub
½Æ»s¥N½X

TOP

·PÁÂG¤j®vªºÀ°§U,ÁÂÁÂ!!
an

TOP

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