發現山坳中的非空單元格並移動內容列B

Question

我有兩列正文在Excel中的cols A和B.

我需要一個函數或VB代碼要經過每個單元中柱A，找到一個非空的單元格，例如A21，並將該單元格的內容移至B22。

然後繼續從A23開始搜索。

col A中帶有數據的行數可能是幾千條。

我該如何解決這個問題？

感謝您的幫助。

Answer 1

試試這個：

Sub test() 

Dim lastrow As Integer 

lastrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row 

Range("A1").Select 

While ActiveCell.Row <= lastrow 

If ActiveCell.Value = "" Then 

ActiveCell.Offset(1, 0).Select 

Else 

ActiveCell.Offset(1, 1).Value = ActiveCell.Value 

ActiveCell.Offset(2, 0).Select 

End If 

Wend 

Range("A1").Select 

End Sub 

結果是這樣的：

Answer 2

您可以通過編寫VBA代碼

Sub moveColAToColB() 

    Dim currentSheet As Worksheet 
    Set currentSheet = Sheets("Sheet1") 

    Dim l As Long 


    With currentSheet 
     For l = 1 To .Rows.Count 
      If Not IsEmpty(.Cells(l, 1).Value) Then 
       .Cells(l, 2).Value = .Cells(l, 1).Value 

      End If 


     Next l 
    End With 

End Sub 

編輯解決這個問題：我還以爲你在你的描述有誤，但我不認爲你不能做的簡單的代碼的簡單修改...

Sub moveColAToColB() 

    Dim currentSheet As Worksheet 
    Set currentSheet = Sheets("Sheet1") 

    Dim l As Long 


    With currentSheet 
     For l = 1 To .Rows.Count 
      If Not IsEmpty(.Cells(l, 1).Value) Then 
       .Cells(l + 1, 2).Value = .Cells(l, 1).Value 
       l = l + 1 
      End If 


     Next l 
    End With 

End Sub 

Answer 3

見代碼：

Sub MoveCellsFromColATOColB() 

    For x = 21 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row ' here is the start range declared also used range 

    Cells(x + 1, "B").Value = Cells(x, "A").Value 

    Next x 

End Sub 

結果：

問候

丹尼爾

Answer 4

考慮：

Sub MoveData() 
    Dim K As Long, nA As Long 
    Dim i As Long 

    nA = Cells(Rows.Count, "A").End(xlUp).Row 
    K = 22 

    For i = 1 To nA 
     If Cells(i, "A").Value <> "" Then 
      Cells(K, "B").Value = Cells(i, "A").Value 
      K = K + 1 
     End If 
    Next i 
End Sub 

例如：