- Range("ListObjectsName[Title]")
Sub Examples01() Dim x As Integer, y As Integer, rngList As Range x = Sheet1.UsedRange.Rows.Count y = Sheet1.UsedRange.Columns.Count Set rngList = Range("A1", Cells(x, y)) Sheet1.ListObjects.Add(xlSrcRange, rngList, , xlYes).Name = "表1" Range("表1[余额]").FormulaR1C1 = "=ROUND(SUM([@收入]-[@支出]),2)" End Sub继续阅读“Excel VBA:Range对象”