Dim ws As Worksheet Set ws = ActiveSheet Dim tbl As ListObject Set tbl = ws.ListObjects("Sales_Table") 'add a new ... Range(3)= 8 .Range(6)= "CASH" End With ...
確定! 回上一頁