网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,396贴子：1,537,919
  • 17回复贴，共1页

怎么把一系列横着排放的表格变成竖的

就是把左边的变成右边的那样


有几百个表格，大小都是一样的，如果复制黏贴的话太耗时间了，可不可以把它分成几百个区域然后重新排列。


写个短代码。
Sub de()
co = [FXD1].End(xlToLeft).Column
For i = 3 To co Step 2
Range(Cells(1, i), Cells(99999, i + 1).End(xlUp)).Cut [A1000000].End(xlUp).Offset(1)
Next
End Sub




行倒28行，列倒R


用函数VLOOKUP试试


扫二维码下载贴吧客户端

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