用宏:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Or Target.Column <> 1 Then Exit Sub
For r = Range("B65536").End(xlUp).Row + 1 To 2 Step -1
Cells(r, 2) = Cells(r - 1, 2)
Next
Cells(1, 2) = Cells(1, 1)
End Sub
B1公式大致如下:
=IF(ROW()>LEN(A$1),"",MID(A$1,LEN(A$1)-ROW()+1,1))
公式向下拉大足够长