作者：乔山办公网日期：
返回目录：excel表格制作
请把单引号换成双引号（英文状态下的）试试
将百Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
修改成度：问
Wb.Sheets(G).UsedRange.Copy
Windows("数据合答并.xlsm").Activate
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
即可内。容
Private Sub Worksheet_selectionchange()
Dim a, b,s As Integer
s = Sheet1.UsedRange.Rows.Count
For a = 1 To s
If Sheet1.Cells(a, 3) > 0 Then
b = b + 1
Sheet2.Cells(b, 1) = Sheet1.Cells(a, 1)
Sheet2.Cells(b, 2) = Sheet1.Cells(a, 3)
End If
Next
End Sub
以上代码可以实现你需要实现的功能，copy已测试过，放心使用。O(∩_∩)O~
你的代码里面百a=a+1，这个循环a没有设置上限，如果一直运行下度去会报错知。
我在你的a=a+1这个代道码下面加了debug.print a 测试了一下，就卡死了。
a会一直循环增大到报错。