从行

Question

我正在创建一个宏循环，该循环从A列获取值，并将其作为前缀添加到该行D列之后的其余单元格中。当到达空单元格时，它将转到下一行并重复该过程，直到列A单元格为空。我已经使用了适用于第一行的代码，但似乎无法使其循环到其他行。

Sub FLOC

Dim I as Integer 
Dim j as Integer
I=4
j=1
 'Check that Column A is not empty to stop the Loop
 While Not IsEmpty(Cells(j, 1))

  If Not IsEmpty(Cells(j,i)) Then
  'Select Column D in that row
  Cells(j, i).Select
 'Add the prefix from Column A to the rest of the Cells on the row
 ActiveCell.Value = Cells(1, j).Value & ActiveCell.Value
 i = i + 1

  'When a empty cell is reached move the ActiveCell to next row, Column D.
  Else
  i = 4
  j = j + 1

   Endif

   Wend

   Sub End      

在正确道路上的任何帮助将不胜感激。

Answer 1

感谢我通过

解决的帮助

Sub FLO2 ()        
Dim i As Double
Dim j As Double
Dim FLOC As String
j = 1
i = 4
FLOC = Cells(j, 1)

While Not IsEmpty(FLOC)

  If Not IsEmpty(Cells(j, i)) Then
  Cells(j, i).Select
  ActiveCell.Value = Cells(j, 1).Value & ActiveCell.Value
  i = i + 1
  Else
  i = 4
  j = j + 1
  End If

Wend
Sub End