你大爷的我忍你很久啦！！！
其他软件此类情况也可以这样解决
在输入法上，当输入法设为英文的时候，复制下来的东西考到记事本上，汉字就成了乱码，因为汉字是两个字符，英文是1个。反之同理。
希望出现此类问题的朋友注意，把输入法设为中文状态复制粘贴就不会出现乱码了。
在输入法上，当输入法设为英文的时候，复制下来的东西考到记事本上，汉字就成了乱码，因为汉字是两个字符，英文是1个。反之同理。 希望出现此类问题的朋友注意，把输入法设为中文状态复制粘贴就不会出现乱码了。
EXCEL
vba
循环
复制
粘贴
另存为 新的文件
VBA
代码 分别
设
置单元格内容
With Workbooks(ThisWorkbook.Name)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Application.CutCopyMode = True Then
Application.CutCopyMode = False
Application.StandardFont = "宋体"
发现从VBE
复制
粘贴
代码到CSDN博客编辑器时，
中文
注释将丢失（显示为问号?）,如下所示：Sub ???????()
Dim cm As New CDO.Message
'Set cm = CreateObject("CDO.Message") '???????? '????·????C:\Windows\system32\cdosys.dll
cm.From = "1234567@qq.com"...
Sub FilterCopyPaste()
Dim ws As Worksheet
Dim filterRange As Range, copyRange As Range, pasteRange As Range
'
设
置工作表
Set ws = ThisWorkbook.Worksheets("Sheet1")
'
设
置筛选区域
Set filterRange = ws.Range("A1:D10")
'
设
置
复制
区域
Set copyRange = ws.Range("A1:D10")
'
设
置
粘贴
区域
Set pasteRange = ws.Range("F1")
'筛选数据
filterRange.AutoFilter Field:=1, Criteria1:="Apple"
'
复制
数据
copyRange.SpecialCells(xlCellTypeVisible).Copy
'
粘贴
数据
pasteRange.PasteSpecial xlPasteValues
'清除筛选
filterRange.AutoFilter
End Sub
上述代码中，我们先
设
置了工作表、筛选区域、
复制
区域和
粘贴
区域。然后使用 `AutoFilter` 方
法
筛选数据，将筛选结果
复制
到剪贴板中，最后
粘贴
到指定的单元格中。最后，我们清除筛选，以便下一次使用。
