4个列的汇总合并同类项，F列是数量

njwtg · 发表于 2024-1-21 10:22

从第三行开始，将B、C、D、E列相同的汇总合并在一起，数据量在F列
原位合并
谢谢老师！

chxw68 · 发表于 2024-1-21 10:34

参与一下。

njwtg · 发表于 2024-1-21 10:47

谢谢chxw68老师，完美实现

ykcbf1100 · 发表于 2024-1-21 10:49

参与一下。。。

ykcbf1100 · 发表于 2024-1-21 10:50

附件供参考。。。

excel玉米 · 发表于 2024-1-21 11:02

chxw68 · 发表于 2024-1-22 09:16

练练SQL：

Sub test2()
Dim sql As String
Dim mybook As String
Dim cnn As Object
Dim rs As Object
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
mybook = ThisWorkbook.FullName
With cnn
If Application.Version = "11.0" Then
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "extended properties=""excel 8.0;HDR=YES;IMEX=1"";data source=" & mybook
Else
.Provider = "microsoft.ACE.oledb.12.0"
.ConnectionString = "extended properties=""excel 12.0;HDR=YES;IMEX=1"";data source=" & mybook
End If
.Open
End With
sql = "select null as 序号,省份,名称,参数,单位,sum(数量) as 数量 from [合并$a2:f] group by 序号,省份,名称,参数,单位"
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
With Worksheets("sheet3")
.Range("a3").CopyFromRecordset rs
End With
End Sub

复制代码

chxw68 · 发表于 2024-1-22 09:18

练习SQL...

准提部林 · 发表于 2024-1-22 13:28

原表操作//合併//刪除重復行... by.准提部林

合并同類項.rar (14.33 KB, 下载次数: 8)

		自动登录	找回密码
密码			免费注册

[求助] 4个列的汇总合并同类项，F列是数量