excel中,我想把A列的数根据工作簿C的B列里面的内容筛选后去加总
时间: 2023-05-15 19:06:42 浏览: 70
您可以使用SUMIF函数来实现这个目标。SUMIF函数的语法如下:
SUMIF(range, criteria, [sum_range])
其中,range是要筛选的范围,criteria是筛选条件,sum_range是要加总的范围。
在您的情况下,您可以将A列作为sum_range,将B列作为range,将C工作簿中的B列作为criteria。具体操作步骤如下:
1. 打开Excel工作簿,选中要进行操作的工作表。
2. 在一个空白单元格中输入以下公式:
=SUMIF([C.xlsx]Sheet1!B:B,A1,[C.xlsx]Sheet1!A:A)
其中,[C.xlsx]Sheet1!B:B是C工作簿中的B列,A1是当前工作表中的一个单元格,[C.xlsx]Sheet1!A:A是C工作簿中的A列。
3. 按下回车键,即可得到筛选后的加总结果。
请注意,这个公式中的文件名和工作表名需要根据实际情况进行修改。
相关问题
如何使用vba将excel表格中指定筛选的内容保存为新工作簿
你可以使用下面的 VBA 代码来实现:
```
Sub SaveFilteredData()
Dim rng As Range
Dim newWB As Workbook
Dim newWS As Worksheet
Dim filterCriteria As String
'设置筛选条件
filterCriteria = "筛选条件"
'应用筛选
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:=filterCriteria
'复制筛选后的数据到新工作表
Set rng = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
Set newWB = Workbooks.Add
Set newWS = newWB.Sheets(1)
rng.Copy newWS.Range("A1")
'保存新工作簿
newWB.SaveAs "新工作簿的文件路径"
'关闭新工作簿和筛选
newWB.Close False
ActiveSheet.AutoFilterMode = False
End Sub
```
在代码中,你需要将“筛选条件”替换为你要筛选的内容。同时,你需要将“新工作簿的文件路径”替换为你想要保存新工作簿的文件路径。执行该 VBA 代码后,会根据指定的筛选条件将符合条件的数据复制到新工作表,并将其保存为一个新的工作簿。
写一段VBA程序,读取excel表“目录”工作簿中F列中单元格等于1对应的B列的单元格内容,把它存入一个list
以下是一个简单的VBA程序,可以读取“目录”工作簿中F列中单元格等于1对应的B列的单元格内容,并将其存入一个list:
```
Sub ReadData()
Dim mySheet As Worksheet
Dim lastRow As Long
Dim i As Long
Dim myList As Object
Set mySheet = ThisWorkbook.Sheets("目录")
lastRow = mySheet.Cells(Rows.Count, "F").End(xlUp).Row
Set myList = CreateObject("System.Collections.ArrayList")
For i = 1 To lastRow
If mySheet.Cells(i, "F").Value = 1 Then
myList.Add mySheet.Cells(i, "B").Value
End If
Next i
' do something with the list
End Sub
```
该程序首先定义了一个Worksheet对象来引用“目录”工作簿,然后确定了F列中最后一个非空单元格所在的行数。接下来,程序创建了一个ArrayList对象,用于存储符合条件的B列单元格内容。最后,程序遍历了F列中的每个单元格,如果该单元格的值等于1,则将对应的B列单元格内容添加到ArrayList中。
请注意,上述代码中的“do something with the list”部分尚未实现。根据实际需要,你可以将该部分替换为将ArrayList中的数据导出到另一个工作簿或进行其他操作。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)