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

[µo°Ý] vbaµ{¦¡½X²¤Æ

[µo°Ý] vbaµ{¦¡½X²¤Æ

¥H¤Uµ{¦¡½X¡A¥Ø«e¤p§Ì¬O¥H°j°é¤è¦¡³]­p¡A·í¸ê®Æ¤j®É¶]ªº³t«×¦³ÂI¤[¡A¤£ª¾¦³¨ä¦³¿ìªk¦A²¤Æ©Î¨ä¥L¤è¦¡°õ¦æ??
sub aa()
Dim sht As Worksheet
For mon = 1 To 12
Application.EnableEvents = False
            For Each sht In Worksheets           
                col = Sheets(mon & "¤ë¥¼µ²").Range("A1").End(xlToRight).Column               
                 r = Sheets(mon & "¤ë¥¼µ²").Range("AA1").Value
                For x = 7 To col
                             For y = 2 To r
                                       mony = Application.IfError(Application.VLookup(Sheets(mon & "¤ë¥¼µ²").Range("A" & y), Sheets("" & sht.Name).Range("A:U"), Application.Match(Sheets("" & sht.Name).Cells(1, x),
                                                          Sheets("" & sht.Name).Range("A1:U1"), 0), 0), "")
                                  Sheets(mon & "¤ë¥¼µ²").Cells(y, x) = mony
                                Next
                Next                                       
             End If
             Next
Application.EnableEvents = True     
Next mon
end sub

¦^´_ 1# ´Ñ»y³¾»ï


¤è«K´£¨Ñªþ¥ó¶Ü? ÁÂÁÂ

TOP

¬Ý¨ì¥N½X¥Ø«e¬Oª½±µ³B²zÀx¦s®æ,Âà¥Î°}¦C·|§Ö±o¦h¡C

TOP

¦^´_ 2# samwang


    test.rar (51.12 KB)
Àɮצpªþ¥ó¡A¤u§@ªíªº¤ë¥÷¬OÀH¾÷ªº¡A¼Æ¾ÚÄæ¦ì·|¨Ì¹ê»Ú±¡ªp·s¼W©Î´î¤Ö

TOP

¦^´_ 4# ´Ñ»y³¾»ï

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, xD, T$, R%, C%, i&, j&
Application.EnableEvents = False
Tm = Timer
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¸ê®Æ¨Ó·½!k1], [¸ê®Æ¨Ó·½!a65536].End(3))
For i = 2 To UBound(Arr)
    xD(Arr(i, 1)) = 1
    For j = 2 To UBound(Arr, 2)
        xD(Arr(i, 1) & "_" & Arr(1, j)) = Arr(i, j)
    Next
Next
For Each sht In Worksheets
    If InStr(sht.Name, "¤ë") Then
        With Sheets(sht.Name)
            R = .Range("a65536").End(3).Row
            C = .Cells(1, Columns.Count).End(xlToLeft).Column
            Arr = .Range(.[a1], .Cells(R, C))
            For i = 2 To UBound(Arr)
                If xD(Arr(i, 1)) = 1 Then
                    For j = 2 To C
                        Arr(i, j) = xD(Arr(i, 1) & "_" & Arr(1, j))
                    Next
                End If
            Next
            .Range("a1").Resize(R, C) = Arr
        End With
    End If
Next
MsgBox Timer - Tm
Application.EnableEvents = True
End Sub

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-9-10 11:56 ½s¿è

¦^´_ 1# ´Ñ»y³¾»ï


·í¸ê®Æ¤j®É¶]ªº³t«×¦³ÂI¤[¡A¤£ª¾¦³¨ä¦³¿ìªk¦A²¤Æ©Î¨ä¥L¤è¦¡°õ¦æ??
>>¦p#3 ªºikboy¤j¤j»¡ªºÂà¥Î°}¦C·|§Ö±o¦h¡A  #5 µ{¦¡¬O¥Î°}¦C+¦r¨å³t«×¤ñ¸û§Ö¡A¦ýµLªk¤ñ±zªºµ{¦¡½X¦b²¤Æ
¦pªG­n¦A²¤Æ¥B³t«×§Ö¡A¥i¯à»Ý­n¨ä¥L¤j¤j¨ó§U¡AÁÂÁ¡C

TOP

¦^´_ 5# samwang


´ú¸Õ¥\¯à¥¿±`¡A¬Ý¨Ó§Ú¤]­n¦n¦n¾Ç¾Ç¦p¦ó¨Ï¥Î°}¦C¤F
·PÁ¤j¤j

TOP

¦^´_ 6# samwang


    ¨S¥²­n²¤Æ¡A®Ä²v¤ñ¸û­«­n¡A¦³®É­Ô²¤Æ¤Ï¦Ó®Ä²v­°§C¡I
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD