变量引用报错求解

1657232430

问题A:
Range("a188").Resize(m, 11).Value = Crr  可以正确的执行程序
下面的代码为何不行？
nRow = .Range("d1048576").End(xlUp).Row
For i = 4 To nRow
Range("a" & i).Resize(m, 11).Value = Crr  

问题B:
将行号赋值为变量，清空或删除行 该怎么表达呢？如图：
Rows("i:ds").Select
Selection.Delete Shift:=xlUp

原代码如下：
Sub aaa()

    Dim wb As Workbook, nRow%, nRow2%, arr(), Crr(), m%, n%
    Dim ds As Object
    Set ds = CreateObject("Scripting.Dictionary")
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\杭州运通和乔电子总账 - 副本.xlsx")
    With wb.Sheets(1)
        nRow = .Range("d1048576").End(xlUp).Row
        If nRow < 4 Then Exit Sub
        arr = .Range("a1:t" & nRow).Value
    End With
    wb.Close False

    ReDim Crr(1 To nRow, 1 To 11)
    For i = 4 To nRow
     If arr(i, 20) = "在库" Then
      j = j + 1
        n = ds(arr(i, 14))
        If n = 0 Then
            m = m + 1
            ds(arr(i, 14)) = m
            n = m
        Crr(n, 2) = arr(i, 4)
        Crr(n, 3) = arr(i, 8)
        Crr(n, 4) = arr(i, 10)
        Crr(n, 5) = arr(i, 13)
        Crr(n, 6) = arr(i, 14)
        Crr(n, 7) = arr(i, 19)
        Crr(n, 8) = arr(i, 17)
        Crr(n, 9) = arr(i, 20)
        Crr(n, 1) = IIf(Crr(n, 2) <> "", j, "")
        'If Range("b" & i) <> "" Then
       'j = j + 1
       'Range("a" & i) = j
    End If
        End If
       Next
    Application.EnableEvents = False
    'Range("a71").Resize(m, 11).ClearContents

    Rows("i:ds").Select
    Selection.Delete Shift:=xlUp
    Range("a188").Resize(m, 11).Value = Crr
    Range("a" & i).Resize(m, 11).Value = Crr

    End Sub

wuliaolang

Range("a" & i).Resize(m, 11).Value = Crr 变量I的数值不是188

操作变量i的行号，rows(i).……

1657232430

wuliaolang 发表于 2017-4-27 17:07
Range("a" & i).Resize(m, 11).Value = Crr 变量I的数值不是188

操作变量i的行号，rows(i).……

这个变量您怎么写？

wuliaolang

就按你的方法直接写常量吧

1657232430

wuliaolang 发表于 2017-4-28 09:18
就按你的方法直接写常量吧

用常量麻烦啊

山菊花

供参考。

1657232430

山菊花 发表于 2017-4-28 11:15
供参考。

简洁高效，又跟版主学了一招。

1657232430

山菊花 发表于 2017-4-28 11:15
供参考。

数据源由[总账]sheets(1)改成:[总账]sheets(2),  程序为何放在第二个工作表会报错：类型不匹配  m = Range("a" & nRow).Value

山菊花

6楼附件已更新，请重新下载。
程序要求“周报表”当前工作表A列最后一单元格原有的数据，要么是文字“序号”，要么是一个数值（表示序号）。

1657232430

山菊花 发表于 2017-4-28 17:30
6楼附件已更新，请重新下载。
程序要求“周报表”当前工作表A列最后一单元格原有的数据，要么是文字“序号 ...

Sub aaa()
   
    Dim wb As Workbook, nRow%, Arr(), Crr(), n%, m
   
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\总账.xlsx")
    With wb.Sheets(2)  ’这一句改成 With wb.Sheets(2) 后，后面就出错
        nRow = .Range("d1048576").End(xlUp).Row
        If nRow < 4 Then Exit Sub
        Arr = .Range("a1:t" & nRow).Value
    End With
    wb.Close False
   
    ReDim Crr(1 To nRow, 1 To 11)
    For i = 4 To nRow
        If Arr(i, 20) = "在库" Then
            n = n + 1
            For j = 2 To 9
                Crr(n, j) = Arr(i, Array(, , 4, 8, 10, 13, 14, 19, 17, 20)(j))
            Next
            Crr(n, 1) = IIf(Crr(n, 2) <> "", n, "")
        End If
    Next
    Application.EnableEvents = False
    nRow = Range("a1048576").End(xlUp).Row
    m = Range("a" & nRow).Value
    If IsNumeric(m) Then
        nRow = nRow + 1 - m
        Range("a" & nRow).Resize(m, 10).ClearContents
    ElseIf m = "序号" Then
        nRow = nRow + 1
    Else
        nRow = 0
    End If
    If nRow > 0 Then Range("a" & nRow).Resize(n, 9).Value = Crr  ‘ 这一句报错
    Application.EnableEvents = True
   
End Sub