可以在Google sheets中查询数据行吗?
EX:
ROW1 A B B
ROW2 100 100 200
我想要做的是按ROW1分组,并对ROW2求和。
期望的结果
A B
100 300
我尝试使用=query(A1:C2,"select sum(A2:C2)",1)来查看它是否显示任何信息。但我得到的只是#VALUE!
Unable to parse query string for Function QUERY parameter 2: PARSE_ERROR: Encountered ":" at line 1, column
我正在尝试创建一个新的工作表,并使用以下代码为其命名:
Sub CREATEWORKSHEETS()
For Each PC In ActiveWorkbook.PivotCaches
On Error Resume Next
PC.Refresh
Next PC
PvtCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Pivot Data!$AF:$AO")
Sheets("P&L Pivot").Select
App
我在Excel中有一个带有三个数据透视表的电子表格。我编写了一个VBA代码,它执行以下操作:
' Copies sheets 1-4
ThisWorkbook.Worksheets(Array("1", "2", "3", "4")).Copy
'Transforms each new sheet data in values only.
For Each iSheet In ActiveWorkbook.Sheets
iSheet.Activate
iSheet.UsedRange.Copy
我需要将PT/Raw (以百万计)数据分成多个工作表(基于员工-Approx 1000)。我使用了附加的代码和样例文件的宏,这符合我的要求。然而,现有的代码并不是自己创建工作表,但是我有1000名学生,所以我想通过代码创建尽可能多的学生。因为我对VB很陌生,所以真的不知道该改哪一部分。我在网上获得了创建工作表的代码,但是不确定如何将其插入原始文件。任何帮助都会有帮助。下面是将原始数据划分为已有的多个工作表的代码:
Sub copyPasteData()
Dim strSourceSheet As String
Dim strDestinationSheet As String
Dim la
我已经创建了一个VBA宏来动态创建一个数据透视表。源数据每天都在变化,所以每天都有不同数量的记录。在宏中,要选择的记录数是硬编码的。是否有一种方法可以每天选择源表中的所有数据-而不是预定义数量的记录
Application.DisplayAlerts = False
Call DeleteAllPivotTablesInWorkbook
Sheets("ALL").Select
If CheckSheet("AllSummary") Then
Sheets("AllSummary").Delete
End If
Sheets.Add.Na
我在使用excel vba时有一个奇怪的错误。我正在尝试将日期值的数据透视表中的可见性设置为false。我的代码在虚表上运行良好,但在真表上返回错误(1004)。
Sub MultiItemPivotFilter2()
Dim PI As PivotItem
Sheets("Pivot_stocks_1").PivotTables("Pivot_Stocks_1").RefreshTable
For Each PI In Sheets("Pivot_stocks_1").PivotTables("Pivot_Stocks_1
我有一个有国家列表的下拉列表。我需要的数据透视表被过滤的基础上下拉选择的国家。我正在使用这个代码。
Sub PivotChange(ByVal Target As Range)
If Not Application.Intersect(Target, Sheets("Summary").Range("D7")) Is Nothing Then
Sheets("Data_4PivotChart").PivotTables("PivotTable7").PivotFields("Country"). _
在我的excel表格中,透视表每月从另一个文件中复制,因此每次将新的透视表复制到我的工作表中时,名称都会更改。我想使用宏来设置透视表筛选器,但在不知道名称的情况下不知道如何引用该表。我使用下面的代码,它有时会工作,但有时会出现错误。你能看看我的代码中有没有什么错误吗?或者,对于我的情况,是否有其他解决方案?
另一个问题是,我的代码在两个工作表中调整了两个透视表,然而,代码有时(大多数时候)只在一个工作表上工作。有谁知道原因吗?
Sub getdeb()
Dim irfile As String
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3
我在VBA Excel中有这样的代码:
Sub MySub()
Dim sheet
Application.EnableEvents = False
Application.ScreenUpdating = False
'get current sheet name
sheet = ActiveSheet.Name
'I have criteria range in hidden sheet
Set cRng = Sheets("Hide_sheet.").Range("A14:O15"
我已经编写了以下代码来编辑两个透视表的范围。直到星号行,我的代码才能正常工作,但是我在.PivotCache.SourceData = rng.Address(True, True, xlR1C1, True)行上得到一个“运行时错误'1004':应用程序定义的或对象定义的”错误。我不知道错误的原因是什么,因为我复制了上面的代码,只更改了工作表名称和数据透视表名称(它们肯定都存在于我的文件中)。有什么帮助吗?
Dim RowCount As Integer
Dim ColCount As Integer
Dim rng As Range
Dim CurrentPeriod As
试图优化表查找。通常情况下,对于5000条条目,它需要大约7分钟的时间,因为逻辑不是最优的,每次都取表元素。有更好的方法吗?
示例表(3列)
TaskID TaskSubID Status
34567 1.2 Done
34567 1.3 Open
34568 1.5 Open
34568 1.3 Finished
34569 1.2 Open
34569 1.4 Open
任务是选择一个任务ID,并检查是否有任何TaskSubID处于已完成或已
我有一个VBA脚本,非常简单地从我在透视表中的合计复制数据,并将它们传递到另一个工作表中。代码:
Public Sub Update_Tracker_TS_Custody()
Sheets("TS_Custody_Pivot").Select
Sheets("TS_Custody_Pivot").Range("B05:C05").Copy
Sheets("TS_Custody_Tracking").Cells(Rows.Count, "C").End(xlUp).Offset(1). _
PasteSpecial
我刚开始使用VBA编码,我正在努力解决一个问题,需要在编码方面得到帮助。
的问题是:图像链接位于之上,并在下面描述
Sheet1上有两列,A列和B列。列A有500行,具有不同的人名,但相同的名称重复使用时间。列B对每个人的姓名具有任务状态(即已完成、打开、关闭)。
任务是创建一个新的工作表,它是sheet1的一种报告,它有来自500行的唯一名称,并检查完成、延迟或打开了多少任务。
这是我的代码,删除、复制和创建唯一的。
Sub CreateUniqueList()
Dim lastrow As Long
Dim ws As String
我正在尝试弄清楚如何根据计算出的sum列(数据字段)正确地过滤透视表,以便能够收集过滤后留下的标签和值。例子比文字更好,下面是我的透视表(使用下面代码中的代码创建):
Row Labels Sum of things XXXXXXXXX 0 YYYYYYYYY 0 ZZZZZZZZZ 2045 AAAAAAAAA 0 BBBBBBBBB 0
我想要的是根据值域(事物的总和)过滤数据透视表,并且只保留大于0的行。
所以这会给我留下
Row Labels Sum of things