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

[µo°Ý] ²M°£­«Âиê®Æ,¥u¦s¯d1µ§¸ê®Æ

[µo°Ý] ²M°£­«Âиê®Æ,¥u¦s¯d1µ§¸ê®Æ

¥»©«³Ì«á¥Ñ linsurvey2005 ©ó 2016-10-24 12:43 ½s¿è

½Ð°Ý¸ê®Æ¤ñ¹ï
®Ö¹ïBÄæ,CÄæ,DÄæ³£¬Û¦P,¤~§R°£­«½Æ¸ê®Æ,¸ê®Æ¾ã²z«á¥u­n¦s¯d1µ§¸ê®Æ

§R°£­«Âиê®Æ.png
2016-10-24 12:42
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

¦^´_ 1# linsurvey2005

EXCEL->¸ê®Æ ->²¾°£­«½Æ

TOP

¦^´_ 2# starbox520


·PÁ¦^ÂÐ
¦]¬°¸ê®ÆB C DÄæ¦P®É¬Û¦P±¡ªp,ÄÝ©ó1µ§¸ê®Æ
¦ý¥þ³¡¸ê®Æ¥u¯à¦s¦b1µ§,©Ò¥H§Ú¨S¿ìªk³o¼Ë¤l³B²z
½Ð°Ý¦³¨ä¥L¤è¦¡¶Ü?
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦p¤U¬°ª©¤º«e½ú¤§§@«~.¸Õ¸Õ

Sub ab()
    Dim arr As Variant
    Dim t As Range
    Dim s As New Collection
    Dim i, j As Long
    Dim myRng As Range
    j = [B65536].End(xlUp).Row
    Set myRng = Range("B1:B" & j)
    On Error Resume Next
    For Each t In myRng
        s.Add Item:=Range(t, t.Offset(0, 2)), key:=CStr(t)
    Next
    ReDim arr(1 To s.Count)
    For i = 1 To s.Count
        [f65536].End(xlUp).Offset(1, 0).Resize(, 3) = s(i).Value
    Next
End Sub
ù

TOP

¦^´_ 4# rouber590324

ÁÂÁ¦^ÂÐ
°õ¦æ¤§«á·|¦³»~§Rªº±¡§Î,¦p¤U»¡©ú:
¦]¬°1µ§¸ê®Æ ¦³"½s¸¹" "E" "N" "ELE"(1¦C)
©Ò¥H B C D ¤T­ÓÄæ¦ìMatc¤~²M°£­«½Æ¸ê®Æ

¦pªG¥u¤ñ¹ïBÄæ¦ì,¨º»òC DÄæ¦ì¨S¦³Match±¡ªp¤U,¸ê®Æ¥i¯à»~§R
½Ð±Ð¥i¦³¥L¤s
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

§Ú·|³Ð³y¤@Äæ±N  "E"&"N"&"ELE" ¸ê®Æ¦ê¤@Äæ
µM«á¥H¦p¤Wµ{¦¡¤ñ¹ï¤£­«ÂШq¥X.
¤w16:54-­n¤U¯Z°Õ-©ú¤é¥ð°²-µL®É¶¡­×§ïµ{¦¡-¦Û¤v¸Õ¸Õ°Õ
ù

TOP

¦^´_ 6# rouber590324

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range
  4.      Set Rng(1) = ActiveSheet.Range("a1").CurrentRegion  '¸ê®Æ©Ò¦bªº½d³ò
  5.      Set Rng(2) = ActiveSheet.Cells(1, Columns.Count - Rng(1).Columns.Count)
  6.      With Rng(1)
  7.         .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("B1:D1"), Unique:=True
  8.         'Rng(1)ªº¶i¶¥¿z¿ï:,  ½d³ò¤¤ªº B:D Äæ,¤£­«½Æªº¸ê®Æ
  9.         .Copy Rng(2)
  10.         .AdvancedFilter xlFilterInPlace    '¥þ³¡¸ê®ÆÅã¥Ü
  11.         .Cells.Clear
  12.        End With
  13.        Rng(2).CurrentRegion.Copy Rng(1)(1)
  14.        Rng(2).Clear
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/10/25 05:57): ½ÐªþÀÉ

¦^´_ 7# GBKEE


G¤j¦n
°õ¦æ«áª¬ªp«Ü©_©Ç
­ì©l¸ê®ÆA:DÄæ ½Æ»s¨ìB:EÄæ
AÄæ¸ê®Æ¯d¤U­ì©lªº´X­Ó½s¸¹
·Pı¨S¦³¤ñ¹ï

§Ú»Ý­nªº¸ê®Æ¬OÂI¦ì§¤¼Ð»P°ªµ{¸ê®Æ
¦]¬°®y¼Ð¤£¯à­«½Æ ¦]¦¹»Ý­n§R°£­«½ÆÂI¦ì
¥i¬O¦³¨ÇÂI¦ìªºE­È·|¤@¼Ò¤@¼Ë,¦]¦¹­n¤ñ¹ïN­È,¤S¥i¯àE­È¸òN­È³£¤@¼Ò¤@¼Ë,©Ò¥H¥²¶·¤ñ¹ïELE­È
¥H¤W
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

http://blog.xuite.net/hcm19522/twblog/225435151
°Ñ¦Ò~
http://blog.xuite.net/hcm19522/twblog/458258396

TOP

½s¸¹78»P5¥u¦³C.DÄæ¬Û¦P, ¬°¦ó¥u«O¯d5???
VBA°ÝÃD³Ì¦n¤W¶ÇªþÀÉ!!

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD