在表头找到指定列然后相加

mohao

jz_l

fzxba

在表头找到指定列然后相加.rar (16.04 KB, 下载次数: 6)

2023-1-13 16:04 上传

点击文件名下载附件

1. Sub test2() '补一个，复制粘贴，条件写在 AC1 单元格，格式如 物业费D+物业费
   
2.   Application.ScreenUpdating = False
   
3.   Dim Re As Object, i As Integer, j As Integer
   
4.   Set Re = CreateObject("VBScript.RegExp")
   
5.   Re.Global = True
   
6.   Re.Pattern = Replace(Range("AC1").Value, "+", "|")
   
7.   With Intersect(Range("P1").CurrentRegion, Range("P:Z"))
   
8.     For j = 1 To .Columns.Count
   
9.       With .Columns(j)
   
10.         If Re.test(.Cells(1).Value) Then
    
11.           i = i + 1
    
12.           Intersect(.Offset(0), .Offset(1)).Copy
    
13.           Range("AC2").PasteSpecial -4163, IIf(i = 1, -4142, 2)
    
14.         End If
    
15.       End With
    
16.     Next
    
17.   End With
    
18.   Set Re = Nothing
    
19.   Application.ScreenUpdating = True
    
20.   Beep
    
21. End Sub
    

复制代码

ykcbf1100

用字典来确定列号

天堑小舟

用数据透视表，然后增加计算字段。

洋务德雷

没看明白，我理解的就是两列相加，直接等号加不就是了？

mmwwdd

实际很多都可以用透视表解决的

lizhipei78

如果就只是求这两列的和，我们可以想一个办法，把这两列移动到固定的列N，O就好了，这样子处理好字段就好统计了，和就用=SUM(OFFSET(L2:M2,0,2))这个函数好了
以上代码还可以设置成批量调整列序号

1233.rar (16.89 KB, 下载次数: 2)

2023-1-14 13:49 上传

点击文件名下载附件