Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1472|回复: 5

[已解决]一句代码问题,麻烦下! 在线等!

[复制链接]
发表于 2013-7-4 19:22 | 显示全部楼层 |阅读模式
本帖最后由 suxiong 于 2013-7-4 19:27 编辑

  1. Range("b1:b" & Range("b60000").End(xlUp).Row).Copy Range("a60000").End(xlUp)
复制代码
我的目的是想把表中B,C,D,E列的数据复制到A列;


Range("b1:b" & Range("b60000").End(xlUp).Row)这里这个按列的变量怎么设置呢?设置了我也不知道怎么写;

谢谢!描述清楚了吗?

最佳答案
2013-7-4 19:54
本帖最后由 大灰狼1976 于 2013-7-4 19:55 编辑

将Range("b1:b" & Range("b60000").End(xlUp).Row)
使用变量,改为:
For j = 2 To [iv1].End(1).Column
   Range(Cells(1, j), Cells(Cells(65536, j).End(3).Row, j)).xxxxx xxxxxxxxx
Next j
类似这样的代码就行了
题外话,你的这句:
Range("b1:b" & Range("b60000").End(xlUp).Row).Copy Range("a60000").End(xlUp)
会导致每次粘贴都会覆盖最下方的单元格内容,应该要加个offset(1,0)
发表于 2013-7-4 19:29 | 显示全部楼层
什么个情况?B、C、D、E列的数据是什么呢?全部放在A列?如何放置?合并?还是拼接?
回复

使用道具 举报

 楼主| 发表于 2013-7-4 19:39 | 显示全部楼层
ligh1298 发表于 2013-7-4 19:29
什么个情况?B、C、D、E列的数据是什么呢?全部放在A列?如何放置?合并?还是拼接?

Snap1.jpg

Snap2.jpg
麻烦看下图片!
回复

使用道具 举报

发表于 2013-7-4 19:50 | 显示全部楼层
  1. Sub 拼接()
  2. Range("a:A").ClearContents
  3. For i = 2 To 4
  4. row1 = Sheets(1).Cells(Rows.Count, i).End(3).Row
  5. arr = Range(Cells(1, i), Cells(row1, i))
  6. row2 = [a65536].End(3).Row + 1
  7. Cells(row2, 1).Resize(UBound(arr)) = arr
  8. Next
  9. End Sub
复制代码

拼接.rar

8.99 KB, 下载次数: 1

回复

使用道具 举报

发表于 2013-7-4 19:54 | 显示全部楼层    本楼为最佳答案   
本帖最后由 大灰狼1976 于 2013-7-4 19:55 编辑

将Range("b1:b" & Range("b60000").End(xlUp).Row)
使用变量,改为:
For j = 2 To [iv1].End(1).Column
   Range(Cells(1, j), Cells(Cells(65536, j).End(3).Row, j)).xxxxx xxxxxxxxx
Next j
类似这样的代码就行了
题外话,你的这句:
Range("b1:b" & Range("b60000").End(xlUp).Row).Copy Range("a60000").End(xlUp)
会导致每次粘贴都会覆盖最下方的单元格内容,应该要加个offset(1,0)
回复

使用道具 举报

 楼主| 发表于 2013-7-4 20:52 | 显示全部楼层
ligh1298 发表于 2013-7-4 19:50

谢谢你了,你和5楼都答的很好,但5楼代码容易看懂些,所以我给他了。对不起;

只能给一个最佳!!!!哎;

对不起!不好意思!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:57 , Processed in 0.344630 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表