- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
§Ú©ñ¦b Open ¸Ì, §A¦A¦Û¤v§ï©ñ¨ì§Anªº Sub ¸Ì :- Dim lRow&, lRows&
- Dim sStr$
- Dim dTar
- Dim wsTar As Worksheet
-
- Set dTar = CreateObject("Scripting.Dictionary") ' ·j´MÃöÁä¦r
-
- For Each wsTar In Worksheets ' ¹M¾ú©Ò¦³¤u§@ªí
- sStr = wsTar.Name ' ¤u§@ªí¦WºÙ
- If Left(sStr, 1) = "T" Then
- Worksheets(sStr).Cells.ClearContents ' ²M°£ "T" ¶}ÀYªº¤u§@ªí¤º®e
- dTar(sStr) = sStr ' ¬ö¿ý "T" ¶}ÀYªº¤u§@ªí¦WºÙ,ÁקKµo¥Í§ä¤£¨ì¤u§@ªíªº¿ù»~
- End If
- Next
-
- With Worksheets("AA")
- lRows = .Cells(Rows.Count, 1).End(xlUp).Row ' §ä³Ì¥½¦C
- lRow = 1
-
- Do While lRow <= lRows
- sStr = "T" & .Cells(lRow, 1) ' ¤u§@ªí¦WºÙ
- If dTar(sStr) <> "" Then ' §ä¨ì¹ïÀ³¤u§@ªí
- .Cells(lRow, 1).CurrentRegion.Copy ' °Ï¶ô½Æ»s
- Worksheets(sStr).[A2].PasteSpecial Paste:=xlPasteValues ' ¦b¹ïÀ³¤u§@ªíªº A2 ¶K¤WÈ
- lRow = lRow + .Cells(lRow, 1).CurrentRegion.Rows.Count - 1 ' ¸õ¹L¤w³B²zªº°Ï¶ô
- End If
- lRow = lRow + 1
- Loop
- End With
½Æ»s¥N½X
1015_ans.zip (22 Bytes)
|
|