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

[µo°Ý] ½Ð°Ý¦h­ÓÀÉ®×»P¦hµ§¤u§@ªí¸ê®Æ¦P¨B§ó·s¸Ó¦p¦ó³]©w

[µo°Ý] ½Ð°Ý¦h­ÓÀÉ®×»P¦hµ§¤u§@ªí¸ê®Æ¦P¨B§ó·s¸Ó¦p¦ó³]©w

½Ð°Ý¦h­ÓÀÉ®×»P¦hµ§¤u§@ªí¸ê®Æ¦P¨B§ó·s¸Ó¦p¦ó³]©w?
ÀÉ®×1»PÀÉ®×2¤º®e¬Û¦P¡AExcel¤ºªº¦hµ§¤u§@ªí"IDÄæ¦ì"¡A¨Ì"ID¤u§@ªí"¸ÌNo¥N¤J¬ÛÀ³ªºID
¦A³Â·Ð¤j®aÀ°¦£¡AÁÂÁ¡C


ÀÉ®×.zip (408.92 KB)

¦^´_ 1# mrcv3


    Sub test()

Set s = Sheets("ID")
r = s.Cells(s.Rows.Count, "B").End(3).Row - 1
ar = s.Cells(2, 1).Resize(r, 2)
For Each Z In Sheets
If Z.Name Like "*Leg*" Then
Zr = Z.Cells(Rows.Count, "B").End(3).Row
For i = 2 To Zr
Z.Cells(i, 3) = ar(Z.Cells(i, 2), 2)
Next
End If
Next
End Sub

TOP

¦^´_ 2# singo1232001


    ¤j¤j±z¦n
·PÁ±z¼ö¤ß¦^ÂÐ
¦A½Ð°Ý§â¤½¦¡¥N¤J¦¹ÀÉ®×­þ¸Ì»Ý­n­×¥¿?
Àµ½Ðª©¤j«üÂI
ÁÂÁÂ

ÀÉ®×1.zip (207.98 KB)

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD