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

[µo°Ý] INDIRECT«á¨ú­È

¦^´_ 10# ­ã´£³¡ªL

§A¦n,

ÁÂÁÂÀ°¦£! ·Q¦A½Ð°Ý¤@¤U, ­Y±b¸¹#«á, ¤£¬O¥ÎA-Z, ¦Ó¬O¥Î¼Æ¦rªí¥Ü, Ãþ¦p ¤@»È#7777, ¤@»È#8888,  ³o¼Ëªº¸Ü, VBA½X­n«ç»ò§ï©O?

TOP

¦^´_ 11# yc1031

Sub ¨Ì±b¤á¶K¤J­È()
Dim Sht As Worksheet, T$, R&, xE As Range
[Åçºâ!I3:P6000].ClearContents
For Each Sht In Sheets
    If INSTR(Sht.NAME ,"#")=0 Then GoTo 101
    R = Sht.Cells(Rows.Count, 2).End(xlUp).Row - 3
    If R <= 0 Then GoTo 101
    Set xE = [Åçºâ!I1].Cells(Rows.Count, 1).End(xlUp)
    xE(2, 3).Resize(R, 6) = Sht.[A4].Resize(R, 7).Value
    xE(2, 1).Resize(R) = Sht.Name
    xE(2, 2).Resize(R) = "#" & SPLIT(Sht.Name,"#")(1)
101: Next
End Sub

TOP

¦^´_ 12# ­ã´£³¡ªL


    ¤Q¤À·PÁ§A!  °ÝÃD¤w¸g¦³¸Ñ¨M¤F¡C  ¦A¦¸ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD