我来回答
小红鞋.rar
2020-6-24 08:04 上传
点击文件名下载附件
20.79 KB, 下载次数: 2
使用道具 举报
13472463805 发表于 2020-6-24 09:41 Sub test() Dim r, c
13472463805 发表于 2020-6-28 11:00 sheet1.Cells(r + 2, c + 1) = Right(Range("h2"), 3) ’这样改就在sheet1的(8+2行,8+1列)也就是把值放 ...
小红鞋.zip
2020-7-3 12:45 上传
22.38 KB, 下载次数: 0
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-9-25 12:13 , Processed in 0.433443 second(s), 7 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.