如何根据相同类型将公式区域自动复制到另一个表格里去

脚印0551 · 发表于 2023-4-15 20:41

需要说明：正常我是根据计算表格里的K列排列类型，找到类型1表里的想对应的排列类型，将后面的对应的两行数据公式复制到计算表格里同一种排列类型当中去。由于类型多。一个一个去找，复制后再粘贴。容易出错。还累。所以肯定大神们，帮帮忙。谢谢。能用vba自动根据计算表格里K列排列类型，找到类型1表格里想对应的类型，将后面的公式自动复制粘贴到计算表格里面去。

chxw68 · 发表于 2023-4-15 21:54

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set d = CreateObject("scripting.dictionary")
With Worksheets("类型1")
r1 = .Cells(.Rows.Count, 4).End(xlUp).Row
c1 = .Cells(2, .Columns.Count).End(xlToLeft).Column
brr = .Range("k1:k" & r1)
For i = 2 To UBound(brr) Step 2
d(brr(i, 1)) = i
Next
End With
With Worksheets("计算表格")
r2 = .Cells(.Rows.Count, 4).End(xlUp).Row
c2 = .Cells(2, .Columns.Count).End(xlToLeft).Column
arr = .Range("k1:k" & r2)
For i = 3 To UBound(arr) Step 2
If d.exists(arr(i, 1)) Then
m = d(arr(i, 1))
Worksheets("类型1").Cells(m, 12).Resize(2, c1 - 11).Copy
.Cells(i, 12).PasteSpecial Paste:=xlPasteFormulas, operation:=xlNone, skipblanks:=False, Transpose:=False
End If
Next
End With
End Sub

复制代码

chxw68 · 发表于 2023-4-15 21:55

详见附件。

脚印0551 · 发表于 2023-4-16 09:43

chxw68 发表于 2023-4-15 21:55
详见附件。

你好。大神。谢谢您每一次的帮忙。我运行了按钮，出来的是同一种类型的数据。不同类型的出来的不对。能在帮忙修改下吗？谢谢您。

准提部林 · 发表于 2023-4-16 15:49

用字典取對應公式位址//沒用到數組

Xl0000105.rar (112.46 KB, 下载次数: 6)

脚印0551 · 发表于 2023-4-16 17:34

准提部林发表于 2023-4-16 15:49
用字典取對應公式位址//沒用到數組

谢谢。大神。可以了。完美

lizhipei78 · 发表于 2023-4-18 17:48

脚印0551 发表于 2023-4-16 09:43
你好。大神。谢谢您每一次的帮忙。我运行了按钮，出来的是同一种类型的数据。不同类型的出来的不对。能在 ...

试试看这样子行不行

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

[求助] 如何根据相同类型将公式区域自动复制到另一个表格里去