用宏 怎样将sheet1 中5的倍数写到sheet2 的A列

加个循环，判断最后一个字符是05，是的就复制到sheet2的第M个位置

循环，用like判断 *0或*5，结果是ture的写在表格二中

Sub 筛选能被5整除的数()
Dim a%, b%
Dim fg As Range
For Each fg In ThisWorkbook.Sheets("sheet1").[a1:d3] 'a1:d3是随便写的数字区域 你可以根据自己实际需要更改
a = fg.Value
If a Like "*5" Or a Like "*0" Then
b = b + 1: ThisWorkbook.Sheets("sheet2").Cells(b, 1) = a
Else
End If
Next
End Sub