动态工作表和指定条件下的数据问题引用求助

天边2021 · 发表于 2024-12-13 22:11

在一个excel工作簿中，除了第一个工作表和最后一个工作表，其余工作表的结构和标题、表头字段位置完全一样，现想要在最后一个工作表中动态跨表引用数据，引用的规则是在最后工作表的B5:C30区域引用除了第一个工作表外各表的B5:C30区域内非空行和数值大于0行的条目，请大家帮忙看看

dambcer · 发表于 2024-12-13 22:32

这最基础的，自己琢磨下
公式就可以了，没必要VBA

3190496160 · 发表于 2024-12-14 13:56

=FILTER(VSTACK(配方1:配方3!B5:C29),VSTACK(配方1:配方3!C5:C29)>0,"")

3190496160 · 发表于 2024-12-14 13:57

计算模版.rar (41.68 KB, 下载次数: 4)

3190496160 · 发表于 2024-12-14 14:12

Sub 数据合并()
Dim sh As Worksheet
Dim ar As Variant
Dim br()
ReDim br(1 To 10000, 1 To 2)
For Each sh In Sheets
If InStr(sh.Name, "配方") > 0 Then
      ar = sh.Range("b5:c30")
      For i = 1 To UBound(ar)
         If ar(i, 2) <> "" Then
            If ar(i, 2) > 0 Then
                  n = n + 1
                  For j = 1 To 2
                     br(n, j) = ar(i, j)
                  Next j
            End If
         End If
      Next i
End If
Next sh
With Sheets("生产部")
   r = .Cells(Rows.Count, 2).End(xlUp).Row - 3
   If r > 4 Then .Range("b5:c" & r) = Empty
   hs = r - 4
   If hs < n Then
      ys = n - hs
      .Rows("5:" & 5 + ys).Insert Shift:=xlDown
End If
.[b5].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!    "
End Sub

3190496160 · 发表于 2024-12-14 14:13

计算模版.rar (43.59 KB, 下载次数: 4)

朝露孤烟 · 发表于 2024-12-14 14:28

用函数INDIRECT引用吧。简单。=INDIRECT(L2&"!B5:c30")

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

[求助] 动态工作表和指定条件下的数据问题引用求助

评分

评分