Question

VBA 怎么引用另一个单元格的数据

有表A和表B两张表，表A是原始数据，表B是根据原始数据得到的数据透视表。表A里有一列是日期列，表B里有一个筛选字段是日期。问题是：每次更新完A表的数据之后，怎么让表B中筛选字段的日期自动更新为表A里面日期列的最大日期（唯一值）？

Answer 1

Private Sub 筛选最大值()
ActiveSheet.PivotTables("数据透视表1").PivotFields("项目").ClearAllFilters
ActiveSheet.PivotTables("数据透视表1").PivotFields("项目").PivotFilters.Add Type:= _
xlCaptionEquals, Value1:=Application.WorksheetFunction.Max(Sheets("sheet4").Range("A1:A9"))
End Sub
自己看看改下

追问

我看不懂这些代码。改了一下名字，但是筛选的日期变成了全部，而且提示：下标越界。怎么办？

Answer 2

如果表A中的C列是日期列
=MAX(A!C:C)

Answer 3

HSETJRFNV

Answer 4

excel
vba在编程时，经常会遇到取单元格值，并赋值，一般是两种语句：
1、range("a1")这样的，直接使用引用。赋值即可使用range("a1")=range("b1")
2、cells(行号，列号）这样的，使用rc引用方式，赋值可使用cells(1,1)=cells(1,2)