[已解决]怎么使用代码

mmc998

Book大频1.rar (86.14 KB, 下载次数: 15)

2015-11-27 19:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-11-27 20:31

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, brr, i&
   
4. arr = [a21:a1308]
   
5. brr = Range("c20").CurrentRegion
   
6. For i = 1 To UBound(arr)
   
7.     arr(i, 1) = brr(i, arr(i, 1))
   
8. Next
   
9. Range("ag21").Resize(UBound(arr)) = arr
   
10. End Sub

复制代码

跳转到最佳答案楼层

mmc998

里面的 公式换成代码

爱疯

Sub test()
    Dim A, B, i, j
    Sheets(1).Select
    A = Range("A1:AG" & Cells(Rows.Count, 1).End(3).Row)
    B = Array(3, 2, 3, 4, 5, 6)

    For i = 22 To UBound(A)
        For j = 0 To UBound(B)
            If A(i, 1) = A(1, B(j)) Then
                '            Stop
                A(i, UBound(A, 2)) = A(i - 1, B(j)): Exit For
            End If
        Next j
    Next i

    Sheets(2).Select
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

我把结果输出到了第2个表，你看对不对？

如果对，就把蓝色的2改成1.

mmc998

爱疯 发表于 2015-11-27 19:51
Sub test()
    Dim A, B, i, j
    Sheets(1).Select

零没有显示出来

爱疯

Sub test()
    Dim A, B, i, j
    Sheets(1).Select
    A = Range("A1:AG" & Cells(Rows.Count, 1).End(3).Row)
    B = Array(3, 2, 3, 4, 5, 6)

    For i = 22 To UBound(A)
        For j = 0 To UBound(B)
            A(i, UBound(A, 2)) = 0
            If A(i, 1) = A(1, B(j)) Then
                '            Stop
                A(i, UBound(A, 2)) = A(i - 1, B(j)): Exit For
            End If
        Next j
    Next i

    Sheets(2).Select
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A
End Sub


加了这句，就有0。

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim arr, brr, i&
   
4. arr = [a21:a1308]
   
5. brr = Range("c20").CurrentRegion
   
6. For i = 1 To UBound(arr)
   
7.     arr(i, 1) = brr(i, arr(i, 1))
   
8. Next
   
9. Range("ag21").Resize(UBound(arr)) = arr
   
10. End Sub

复制代码