怎样引用不同工作表的同一单元格？

redsuc

Sub yyuu()
On Error Resume Next
  
Dim SHT As Worksheet, STRN$, n%，arr
    STRN = ""
    For Each SHT In Worksheets
        If SHT.Name <> "" Then
            STRN = STRN & SHT.Name & ","
        End If
    Next
    If len（STRN）〉1 Then arr = Sheets(Split(Left(STRN, Len(STRN) - 1), ",")).Range（"A1"）
    Set SHT = Nothing
End Sub

那么的帅

提供附件，并说明具体要求

另，提问请到 首页 『Excel VBA程序开发』 板块
或者 点击 上方的 VBA提问（黄色）

redsuc

那么的帅 发表于 2014-3-11 14:51
提供附件，并说明具体要求

另，提问请到 首页 『Excel VBA程序开发』 板块

谢谢！
知道了？