[已解决]求老师给一段代码按简单要求复制数据，有附件，

simonshaw

如题，要求见附件，应该不算太难，但我不懂VBA， AABBCC.rar (2.27 KB, 下载次数: 7)

2013-4-25 22:57 上传

点击文件名下载附件

诚请各位老师帮忙。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-26 07:45

1. Sub 统计公式()
   
2.     Dim rg As Range
   
3.     Dim lCount As Long
   
4.     On Error Resume Next
   
5.     Set rg = Range("F5：AD23").SpecialCells(xlCellTypeFormulas, xlNumbers)
   
6.     If Not rg Is Nothing Then
   
7.         lCount = rg.Count
   
8.     End If
   
9.     MsgBox "F5：AD23 一共含有 " & lCount & " 个返回数值的公式"
   
10.     'MsgBox "F5：AD23 一共含有 " & Range("F5：AD23").SpecialCells(xlCellTypeFormulas, xlNumbers).Count & " 个返回数值的公式", vbOKOnly
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     Dim arr, arr1
   
3.     Dim i As Byte, j As Byte
   
4.     arr = Range("f5:ad20")
   
5.     arr1 = Range("f22:ad22")
   
6.     On Error Resume Next
   
7.     For i = LBound(arr) To UBound(arr)
   
8.         For j = LBound(arr, 2) To UBound(arr, 2)
   
9.             If Len(arr(i, j)) > 0 And Len(arr1(1, j)) > 0 Then
   
10.                 arr(i, j) = arr(i, j) * arr1(1, j)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Range("an33").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
15.     MsgBox "OK"
    
16. End Sub

复制代码

hwc2ycy

AABBCC.rar (10.91 KB, 下载次数: 11)

2013-4-25 23:13 上传

点击文件名下载附件

simonshaw

hwc2ycy 发表于 2013-4-25 23:13

能不能帮我编个统计附件表格F5：AD23范围里有数字的列（每个列里一定只有一个数字）一共有多少的公式？
谢谢你了，我试下代码

1032446692

你重复发帖？？？？

simonshaw

1032446692 发表于 2013-4-26 00:00
你重复发帖？？？？

我是要发到VBA开发里的。不小心发到这了，就重在VBA开发里发了，因为我不会删掉啊，不过也好，想在这里求个统计有数字列的公式。

hwc2ycy

1. Sub 统计公式()
   
2.     Dim rg As Range
   
3.     Dim lCount As Long
   
4.     On Error Resume Next
   
5.     Set rg = Range("F5：AD23").SpecialCells(xlCellTypeFormulas, xlNumbers)
   
6.     If Not rg Is Nothing Then
   
7.         lCount = rg.Count
   
8.     End If
   
9.     MsgBox "F5：AD23 一共含有 " & lCount & " 个返回数值的公式"
   
10.     'MsgBox "F5：AD23 一共含有 " & Range("F5：AD23").SpecialCells(xlCellTypeFormulas, xlNumbers).Count & " 个返回数值的公式", vbOKOnly
    
11. End Sub
    

复制代码