这段代码为什么一直溢出

xuxu8904

想把一个表里的内容筛出来，复制到另一张表中，为什么运行的时候一直溢出呢。

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim rw%, rww%, co%, i%, x%
Sheets("amplifier in Library").Rows("2:2000").Clear
rw = Sheets("amplifier manage").UsedRange.Rows.Count
co = Sheets("amplifier manage").UsedRange.Columns.Count
With Sheets("amplifier manage")
For i = 2 To rw
rww = Sheets("amplifier in Library").UsedRange.Rows.Count + 1
If .Cells(i, 7).Value = "在账" Then
x = x + 1
Sheets("amplifier in Library").Cells(rww, 1).Value = x
Sheets("amplifier in Library").Cells(rww, 2).Resize(1, co).Value = .Cells(i, 1).Resize(i, co).Value
End If
Next
End With
Unload Me
Sheets("amplifier in Library").Select
End Sub

求大神帮忙。
上传了附件，在fangdaqiguanli这个窗体里   在账品查询和不在账品查询这两个按钮的代码，每次都溢出。

liulang0808

数据类型          类型标识符    记忆要点        
字符串型 String            $             $和String 的首字母S 相似
整数型 Integer           %              %是百分比符号，记作整数，因为和长整数&比相对数值范围较小。
长整数型 Long           &               &和Long 的首字母L 相似
单精度型 Single           !               ! 只有1竖，记作“单”
双精度型 Double         #              #是2横2竖，记作“双”
货币型 Currency         @              @常用作单价表示，所以是货币型

上面是对楼主使用简化变量定义的说明，不同类型对应的的有范围，因为楼主没有上传附件，建议楼主自行检查下。如果还有问题，建议上传附件吧

lsc900707

要么重新定义，要么删除第3行代码。如果还有问题就把附件打包上传。

xuxu8904

liulang0808 发表于 2019-1-22 08:09
数据类型          类型标识符    记忆要点        
字符串型 String            $             $和String ...

你好，我把附件上传了，具体窗体和按钮也写出来了，麻烦您看一下好么

xuxu8904

lsc900707 发表于 2019-1-22 08:37
要么重新定义，要么删除第3行代码。如果还有问题就把附件打包上传。

你好，我把附件上传了，具体窗体和按钮也写出来了，麻烦您看一下好么

xuxu8904

自己顶一下。求帮忙