网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：282,394贴子：1,559,848
  • 5回复贴，共1页

请教：VBA range（多个区域）用变量的问题

VBA中range（单个区域）用变量很简单
Sheet1.Activate
定义列数x1 = 5
Range("A1:E1").Copy Range("A3:E3")，表示复制A1:E1区域到A3:E3
用变量可以写成：Range(Cells(1, 1), Cells(1, x1)).Copy Range(Cells(3, 1), Cells(3, x1))
复制到多个区域
Range("A1:E1").Copy Range("A3:E3,A10:E10")，表示复制A1:E1区域到A3:E3及A10:E10
请问：这句里面的A3:E3,A10:E10，用变量该怎么写?


Range("a1:e1").Copy Application.Union(Cells(3, 1).Resize(1, x1), Cells(10, 1).Resize(1, x1))


2026-04-01 02:49:26
广告
不感兴趣
开通SVIP免广告
Option Explicit
Sub abc()
　Dim i, row
　row = Array(3, 10)
　For i = 0 To UBound(row)
　　Range("A1:E1").Copy Range("A" & row(i))
　Next
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 5回复贴，共1页
分享到: