[已解决]ＶＢＡ

SHENQIAN

Sub 取出A列()
Dim arr, arr1(1 To 100000, 1 To 4)
arr = Range("a1:d15")
   Dim x, k 'As Integer
    For x = 1 To UBound(arr)
     If arr(x, 1) = "A" Then
       k = k + 1
         arr1(k, 1) = arr(x, 1)
         arr1(k, 2) = arr(x, 2)
         arr1(k, 3) = arr(x, 3)
         arr1(k, 4) = arr(x, 4)
     End If
    Next x
   Range("a17").Resize(k, 4) = arr1
End Sub

产品	规格	单价	金额
Ａ	2	12	230
Ｂ	5	15	450
Ａ	2	12	230
Ｃ	3	16	120
Ｂ	5	15	56
Ｄ	7	25	112
Ａ	2	12	230
Ｂ	5	15	450
Ｃ	3	16	120
Ｄ	7	25	112
Ａ	2	12	230
Ｄ	7	25	112
Ａ	2	12	230
Ｂ	5	15	450

我这个代码看着是一点问题都没有怎么提示应用程序定义或对象定义错误？请问那里有问题？

最佳答案

月排行榜 / 总排行榜

神隐汀渚

2015-12-27 19:41

1、不在同一工作表
2、看下A列中A是不是就是一个字符
如果不是A 那么arr1=空  那么就不符合

跳转到最佳答案楼层

神隐汀渚

1、不在同一工作表
2、看下A列中A是不是就是一个字符
如果不是A 那么arr1=空  那么就不符合

悠悠05

通过比对可以看出你数据源的字母是在全角状态下输入的，而在VBA中“=”两边必须完全一样，所以你可以将单元格的A复制后，粘贴替换代码的那个A字后，代码能够正常运行

lichuanboy44

这个程序，不能说看似一点问题都没有，一个问题是楼上说的，表格中的字母是全角，但程序中引用的是半角；二个问题是数组arr1是动态数组，你首先就不分青红皂白的定义为一个静态数组 arr1(1 To 100000, 1 To 4)，不能是大问题，但不规范。三个问题是我看楼上已给你答复了，但你没有回复，是对还是其它问题。

SHENQIAN

lichuanboy44 发表于 2015-12-27 21:12
这个程序，不能说看似一点问题都没有，一个问题是楼上说的，表格中的字母是全角，但程序中引用的是半角；二 ...

我昨晚下线了
谢谢你

SHENQIAN

神隐汀渚 发表于 2015-12-27 19:41
1、不在同一工作表
2、看下A列中A是不是就是一个字符
如果不是A 那么arr1=空  那么就不符合

谢谢你,我试试

SHENQIAN

悠悠05 发表于 2015-12-27 20:55
通过比对可以看出你数据源的字母是在全角状态下输入的，而在VBA中“=”两边必须完全一样，所以你可以将单元 ...

谢谢你
我试试

SHENQIAN

谢谢你我明白了.