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

vba­pºâ²Å¦X¶µ¥Øªº¦¸¼Æ

vba­pºâ²Å¦X¶µ¥Øªº¦¸¼Æ

©êºp¡A¥i¯à¬O§ÚªºÅv­­ÁÙµLªk¤W¶ÇÀÉ®×..

½Ð±Ð¤j®a¤@¤U¡A¦pªG¤U­±¤G­ÓÄæ¦ìªº¸ê ®Æ¡A­n¦p¦ó¥Hvba­pºâ¨C­Ó¤Hªº¸ê®Æ¤¤ªº¦UÃC¦â¥X²{´X¦¸¡H

¤H¦W        ÃC¦â
¤p¤ý        ¶À¦â
¤pªá        ¬õ¦â
¤p¥Õ        ¶Â¦â
¤p³¯        ¶À¦â
¤pªá        ¥Õ¦â
¤p³¯        ¶À¦â
¤p¤ý        ¬õ¦â
¤pªá        ¶À¦â
¤p¥Õ        ÂŦâ
¤p³¯        ¥Õ¦â
¤p¥Õ        ¶Â¦â
¤p³¯        ¦Ç¦â
¤p³¯        ¶Â¦â
¤pªá        ¶À¦â
¤p³¯        ÂŦâ
¤p¤ý        ¥Õ¦â
¤pªá        ¬õ¦â
¤p¥Õ        ¶Â¦â
¤p³¯        ¶À¦â
¤p¤ý        ¥Õ¦â

-----------------------------------------------

¤H¦W        ¥Õ¦â        ¦Ç¦â        ¶À¦â        ¶Â¦â        ÂŦâ
¤p¤ý                                       
¤p¥Õ                                       
¤pªá                                       
¤p³¯

¦^´_ 1# eric093
¨Ï¥Î¼Ï¯Ã¤ÀªRªí¡A´N¯à²³æ§¹¦¨¤F¡C

TOP

¤W¶ÇÀÉ®×¥²¶·À£ÁY«á¤è¥i¤W¶Ç¡A»P·|­û¯Å§OµLÃö¡C

TOP

¥»©«³Ì«á¥Ñ Kubi ©ó 2013-9-3 10:01 ½s¿è

¦^´_ 1# eric093

¸ê®Æ¦bSheet1¡Aµ²ªG¦bSheet2¡C
ÃC¦â±Æ¦C¶¶¦¸µLªk¹F¨ìª©¤j­n¨D¡C

Option Base 1

Sub test()
    Dim arr()
    Dim r As Object, c As Object
    Set r = CreateObject("Scripting.Dictionary")
    Set c = CreateObject("Scripting.Dictionary")
    r1 = 1: c1 = 1
    With Sheets("Sheet1")
        For v = 2 To .[A65536].End(3).Row
            mn = .Cells(v, 1).Value: mc = .Cells(v, 2).Value
            If Not r.exists(mn) Then r(mn) = r1: r1 = r1 + 1
            If Not c.exists(mc) Then c(mc) = c1: c1 = c1 + 1
        Next v
        ReDim arr(r.Count, c.Count)
        For v = 2 To .[A65536].End(3).Row
            mn = .Cells(v, 1).Value: mc = .Cells(v, 2).Value
            arr(r(mn), c(mc)) = arr(r(mn), c(mc)) + 1
        Next v
    End With
    With Sheets("Sheet2")
        .Cells.ClearContents
        rr = 1
        For Each x In r
            rr = rr + 1: .Cells(rr, 1).Value = x
        Next x
        cc = 1
        For Each x In c
            cc = cc + 1: .Cells(1, cc).Value = x
        Next x
        .[B2].Resize(r.Count, c.Count) = arr
        .Select
    End With
End Sub
ÀɮפU¸ü¡Ghttp://ge.tt/888urwq
[b]Kubi[/b]

TOP

¦^´_ 1# eric093


   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Kubi


    ·PÁª©¤j­Ì¡I¦¨¥\¤F¡I
    ¦³ÂIÃø¡A¦³¨Ç¬Ý¤£À´¡A§Ú·|¦A·Q¿ìªk¤F¸Ñ¥¦ªº¡I
     ¥n'''
·s¤H¤@ªT

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD