网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月23日
漏签
0
天
vba吧
关注:
16,895
贴子:
65,715
看贴
图片
吧主推荐
游戏
8
回复贴,共
1
页
<<返回vba吧
>0< 加载中...
求助
求助 粘贴数值应该怎么写?
只看楼主
收藏
回复
拿捏310
人海孤鸿
4
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
ActiveWorkbook.ActiveSheet.UsedRange.Copy ThisWorkbook.ActiveSheet.Range("AP1") ActiveWorkbook.Close SaveChanges:=False
拿捏310
人海孤鸿
4
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
粘贴为数值,保留原工作表单元格格式应该怎么写?有大神知道吗?
烟雨江南ooo
自成一派
12
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
你这怎么同时两个工作簿都有activesheet?
烟雨江南ooo
自成一派
12
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
百度一个例子给你
wb.Sheets("analityka_id-tabele").Range("E68:G71").Copy
wbMe.Sheets("strona 3").Range("E16").PasteSpecial Paste:=xlPasteValues
烟雨江南ooo
自成一派
12
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
贴图看例子,排版方便清楚些
阳光上的桥
后起之秀
7
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
可以通过数组提取数值,避免剪贴板交互,语句这样写:
arr = ActiveSheet.UsedRange
ActiveWorkbook.Close SaveChanges:=False
ThisWorkbook.ActiveSheet.Range("AP1") .ReSize(ubound(arr), ubound(arr,2)) = arr
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示