yc1031

回復 10# 准提部林

你好,

謝謝幫忙! 想再請問一下, 若帳號#後, 不是用A-Z, 而是用數字表示, 類如 一銀#7777, 一銀#8888,  這樣的話, VBA碼要怎麼改呢?

准提部林

回復 11# yc1031

Sub 依帳戶貼入值()
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

yc1031

回復 12# 准提部林


    十分感謝你!  問題已經有解決了。  再次謝謝