一个EXCEL VBA 很简单的一个问题 .有图

2024-11-27 11:44:13

推荐回答（2个）

回答1：

应该是，你这段代码是放在worksheet下的，不是模块里的。

放在worksheet里Range其实指的是，thissheet.range而非activesheet.range

把代码改成

Public Sub fd()
with activesheet
    M = .Range("A10000").End(xlUp).Row
    .Range("B1:B" & M).Copy
      .Cells(1, 3).PasteSpecial Paste:=xlPasteValues
end with
End Sub

或者放到模块中

回答2：

清除A列格式试试，不要加边框

最新问答

用“神秘”造句子

红米note3手机怎么恢复出厂设置

为甚么我CF登陆器活动页面是空白，网络绝对没问题，还有能打开网页，但就进不了CF官网。求大神解决。

我想在家自己学习高中课程，可以吗？有难度吗？我已经休学一年了。

求一部日本的动漫（又似是电影），男女主在高中时相遇，后来在一起，女主为男主放弃出国留学的机会。

中国数字图书馆的数据库

肇庆高要市南岸镇南中的详细资料

zippo打火机打火轮磨损怎么办

谁能给我个火影主题曲sign的全部中文歌词

海底两万里中主要人物简介。