如果您很难找到开始的位置,可以尝试使用此Sheet1的Worksheet_Change事件宏。
Option Explicit
Private dALL As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Sum(Target.Parent.UsedRange.Cells) <> dALL Then
dALL = Application.Sum(Target.Parent.UsedRange.Cells)
On Error GoTo bm_Safe_Exit
'suspend events so nothing on Sheet2 gets triggered
Application.EnableEvents = False
Dim a As Long, i As Long, j As Long, aVALs As Variant
aVALs = Target.Parent.UsedRange.Cells.Value2
For i = LBound(aVALs, 1) To UBound(aVALs, 1)
For j = LBound(aVALs, 2) To UBound(aVALs, 2) - 1
If Not CBool(Len(aVALs(i, j))) Then
For a = j + 1 To UBound(aVALs, 2)
If CBool(Len(aVALs(i, a))) Then
aVALs(i, j) = aVALs(i, a)
aVALs(i, a) = vbNullString
Exit For
End If
Next a
End If
Next j
Next i
With ThisWorkbook.Worksheets("Sheet2")
.UsedRange.Clear
.Cells(1, 1).Resize(UBound(aVALs, 1), UBound(aVALs, 2)) = aVALs
End With
End If
bm_Safe_Exit:
Application.EnableEvents = True
End Sub
你的'VBA或宏观知识'不仅看起来'非常基本';事实上,它似乎并不存在。 – Jeeped
嗯,没错。任何建议或方向将不胜感激。无论如何,我可以改善我的问题? – vungvang
我投票结束您的问题,因为您要求提供代码而不提供任何代码。这不是获得免费代码的地方,你太懒惰或无法编写代码。改进你的问题:**写代码并在你的问题中包含它,并描述任何错误或问题**([问]]。 – Jeeped