应该是，你这段代码是放在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
或者放到模块中
清除A列格式试试，不要加边框
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024