查找每行中最后填充的列

Question

我正在尝试使用其他工作表中的数据动态填充工作表。我试图找到每行的最后一个填充列，然后将数据添加到最后一个填充列的右侧。每行可能在另一个工作表上有多个条目，因此我有一个For循环来向右添加数据。但是我的代码是从前一个循环运行的最后一列，增加它，以梯形方式填充表单。  XXXX       YYYYY             ZZZZZZ 我希望代码填充如下：     XXXX     YYYY ZZZZ     WWWW

以下是代码：

Set wsLD = Worksheets("ListDir")
Set wsTO = Worksheets("Requirements To Be Certified")
intLastLDRow = wsLD.Cells(Rows.count, 1).End(xlUp).Row

 For intLooper = 2 To intLastLDRow
    intReqRowNum = wsLD.Cells(intLooper, 1).Value
    wsTO.Cells(1, 1).Activate
    intLastTOCol = wsTO.Cells(intReqRowNum, wsTO.Columns.count).End(xlToLeft).Column

    wsTO.Cells(intReqRowNum, intLastTOCol + 1).Value = wsLD.Cells(intLooper, 5).Value
    wsTO.Hyperlinks.Add Anchor:=wsTO.Cells(intReqRowNum, intLastTOCol + 1), _
            Address:=wsLD.Cells(intLooper, 4).Value, TextToDisplay:=wsLD.Cells(intLooper, 5).Value

Next intLooper

我不是试图选择一个范围或激活任何其他细胞 - 这就是它如何使它与众不同。