求大神完善查询关键字合并指定单元格

人气人

希望可以模糊查询然后合并单元格  保留每个合并单元格的每格数值

人气人

3190496160 发表于 2023-5-17 22:28
看半天一头雾水

查询的结果按顺序  合并单元格

边缘码农

研究了一下，感觉有些问题。
1、“汇总查询”工作表中，把货主改成“丰宜”，点击【查询】，C-G列的内容没有变化。
2、“期望效果”工作表，只有结果，没有原始数据。“温区单价”列的数据和“明细表”工作表中的数据不一致。这个表感觉就是每6行为一个区间，将A-G列合并单元格。

边缘码农

1. 'Option Explicit
   
2. Sub 多条件查询()
   
3.     Dim i As Long, j As Long, SL As Long
   
4.     Dim HuoZhu As String
   
5.     SL = 1
   
6.     With Sheets("汇总查询")
   
7.         i = .Range("a65536").End(xlUp).Row
   
8.         If i > 2 Then .Range("A3:G" & i).ClearContents
   
9.         HuoZhu = .Cells(1, 2)
   
10.     End With
    
11.     With Sheets("明细表")
    
12.         i = .Range("a65536").End(xlUp).Row
    
13.         barr = .Range("A1:G" & i)
    
14.     End With
    
15.     ReDim carr(1 To i, 1 To UBound(barr, 2))
    
16.     Stop
    
17.     For i = 1 To UBound(barr)
    
18.         If barr(i, 2) = HuoZhu Then
    
19.             For j = 1 To UBound(barr, 2)
    
20.                 carr(SL, j) = barr(i, j)
    
21.             Next j
    
22.             SL = SL + 1
    
23.         End If
    
24.     Next i
    
25.     Sheets("汇总查询").Cells(3, 1).Resize(SL, UBound(barr, 2)) = carr
    
26.     MsgBox "查询完成!"
    
27. End Sub

复制代码

3190496160

看半天一头雾水

人气人

查询的结果插入空行赋值  在合并单元格   一直没有想到怎么做  还请大神们帮忙

人气人

边缘码农 发表于 2023-5-18 13:38
研究了一下，感觉有些问题。
1、“汇总查询”工作表中，把货主改成“丰宜”，点击【查询】，C-G列的内容没 ...

是的  不知道怎么写可以实现  还请兄弟们费心

ykcbf1100

真想帮一下的，但期望效果表中的类型，明细表中都没有的，无法往下做啊。

人气人

ykcbf1100 发表于 2023-5-18 14:45
真想帮一下的，但期望效果表中的类型，明细表中都没有的，无法往下做啊。

“期望效果”工作表取“明细表”里数据。就是每6行为一个区间合并单元格，将A-G列合并单元格。

人气人

边缘码农 发表于 2023-5-18 14:45

希望查询结果每6行为一个区间合并单元格，将A-G列合并单元格。