语法 - 当行是变量时定义范围

Question

我是vba的新手。我需要一些更复杂的语法帮助。

我有两个嵌套循环，它们将某些行的内容与每隔一行的内容进行比较。 “当前行计数”存储在整数curRow和iterateRow

中

如何将迭代行的内容从E列复制/粘贴到包含文本的最后一列？

这就是我所拥有的

Dim lastIterateCol As Long
Dim lastCurCol As Long
Dim copyRange As Range

lastCurCol = ws.Cells(curRow, ws.Columns.Count).End(xlToLeft).Column
lastIterateCol = ws.Cells(iterateRow, ws.Columns.Count).End(xlToLeft).Column

//this next portion is what I'm struggling with
ws.Range("E" & iterateRow + ":" + CStr(lastIterateCol) & iterateRow).Copy

ws.Cells(curRow, lastCurCol).Paste
ws.Rows(iterateRow).EntireRow.Delete

Answer 1

由于您的lastIterateCol是数字，请使用此表单

ws.Range(ws.Range("E" & iterateRow), ws.Cells(iterateRow, lastIterateCol)).Copy