求大神vba编码翻译，谢谢~！
a = Sheet2.[a65536].End(3).Row
b = Sheet1.[b65536].End(3).Row - 3
If b > 0 Then
Sheet2.Range("a" & a + 1).Resize(b, 4) = Sheet1.Range("b4").Resize(b, 4).Value
Sheet1.Range("b4").Resize(b, 4) = ""
End If
End Sub
最新回答
你会腻我何必
2024-11-03 04:50:14
a = Sheet2.[a65536].End(3).Row 'a赋值为工作表2 A列有效行数
b = Sheet1.[b65536].End(3).Row - 3 'b赋值为工作表1 b列有效行数减3
If b > 0 Then
Sheet2.Range("a" & a + 1).Resize(b, 4) = Sheet1.Range("b4").Resize(b, 4).Value '设置单元格大小
Sheet1.Range("b4").Resize(b, 4) = ""
End If
End Sub
热门标签
