复制不同表格中的两个单元格合并到另一表格的一个单元格

chenrixin · 发表于 2021-12-16 01:49

本帖最后由 chenrixin 于 2021-12-16 01:56 编辑

微信图片_20211216015243.png

Private Sub CommandButton1_Click()

  Worksheets("表1").Range("E91:R91").Copy
  Worksheets("表2").Range("B2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
  Application.CutCopyMode = False

  Worksheets("表1").Range("C92:R92").Copy
  Worksheets("表2").Range("B16").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
  Application.CutCopyMode = False

End Sub

chenrixin · 发表于 2021-12-16 01:57

求助各位大神帮忙改下。

chenrixin · 发表于 2021-12-16 01:59

求助各位大神帮忙改下。

zxsea_7426 · 发表于 2021-12-17 12:31

可以采用数组，每两个进行连接形成一个新的

zxsea_7426 · 发表于 2021-12-17 14:00

新手上路，看看就好，如果有什么好办法一起分享，一起进步

chenrixin · 发表于 2021-12-19 22:24

zxsea_7426 发表于 2021-12-17 14:00
新手上路，看看就好，如果有什么好办法一起分享，一起进步

谢谢你的帮助，但不是我想要的效果。

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