|
本帖最后由 cpl275538 于 2017-7-21 11:49 编辑
代码一:
Sub 生成汇总()
a = Sheet1.[ab65536].End(3).Row
b = Sheet1.[aj65536].End(3).Row - 2
If b > 0 Then
Sheet1.Range("ab" & a + 1).Resize(a, 3) = Sheet1.Range("aj2").Resize(a, 3).Value
End If
End Sub
代码二:
Sub 生成汇总()
a = Sheet4.[a65536].End(3).Row
b = Sheet3.[b65536].End(3).Row - 3
If b > 0 Then
Sheet4.Range("a" & a + 1).Resize(a, 30) = Sheet3.Range("a3").Resize(a, 30).Value
End If
End Sub
你又来送分了啊,直接顺序写进去就行了呗,很多情况下自己试试理解得快,不要怕错误。
- Sub 生成汇总()
- a = Sheet1.[ab65536].End(3).Row
- b = Sheet1.[aj65536].End(3).Row - 2
- If b > 0 Then
- Sheet1.Range("ab" & a + 1).Resize(a, 3) = Sheet1.Range("aj2").Resize(a, 3).Value
- End If
- a = Sheet4.[a65536].End(3).Row
- b = Sheet3.[b65536].End(3).Row - 3
- If b > 0 Then
- Sheet4.Range("a" & a + 1).Resize(a, 30) = Sheet3.Range("a3").Resize(a, 30).Value
- End If
- End Sub
复制代码
|
|