求助vba大神，一个表格数据复制到另一个sheet，但有数据提取的处理。详细见附件。

tony202109 · 发表于 2021-12-9 10:07

原表sheet ABC，生成另一个sheet，部分列数据直接同步，有的列需要提取数据。

3190496160 · 发表于 2021-12-9 11:16

Sub 整理()
Dim ar As Variant
Dim br()
ar = Sheets("ABC").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
      n = n + 1
      br(n, 1) = ar(i, 1)
      rr = Split(ar(i, 2), "）")
      br(n, 2) = Replace(rr(0), "（", "")
      br(n, 3) = rr(1)
      br(n, 4) = ar(i, 3)
      br(n, 5) = ar(i, 4) + ar(i, 5)
End If
Next i
With Sheets("ABC_1")
.[a1].CurrentRegion.Offset(1) = Empty
.[a2].Resize(n, 5) = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2021-12-9 11:17

ceshi.rar (17.94 KB, 下载次数: 2)

tony202109 · 发表于 2021-12-9 11:33

谢谢大佬，执行按钮能不能在元数据表sheetABC那里，不用OK提示，执行有结果就行。
刚需求少了一列，我重新上传下。

tony202109 · 发表于 2021-12-9 11:34

就是sheet ABC上执行VB点击按钮，生成另一个sheet ABC_1，里面的数据都是提取于ABC里的

tony202109 · 发表于 2021-12-9 11:35

3190496160 发表于 2021-12-9 11:17

麻烦大佬看下

3190496160 · 发表于 2021-12-9 11:40

按钮自己可以画一下的呀，这么简单的问题还得别人帮你搞定？？？

tony202109 · 发表于 2021-12-9 11:46

3190496160 发表于 2021-12-9 11:40
按钮自己可以画一下的呀，这么简单的问题还得别人帮你搞定？？？

复制了按钮，谢谢。加了个删选条件，能帮忙加下吗？不需要类型为“右”的数据。

3190496160 · 发表于 2021-12-9 13:09

tony202109 发表于 2021-12-9 11:46
复制了按钮，谢谢。加了个删选条件，能帮忙加下吗？不需要类型为“右”的数据。

一开始就是上传你真是的表格，表述真实的需求，论坛是做义务的，没有人愿意在一个问题上反复折腾的，除非是有偿

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