自动重新排列基于单元格值的行数据

问题描述：

Sheet1有90列和288行。每行的一些单元格有价值，有些是空白的（包含公式）。我想重新排列Sheet2中的每一行数据，因为值包含单元格左侧和空白单元格右侧。我不想删除空白单元格，如果一行没有任何数据将不会被删除。在我的情况下，行顺序非常重要。 Sheet1每5分钟更新一次，如果有可能更新Sheet2每5分钟将会非常棒。例如：工作表Sheet1 Sheet1 自动重新排列基于单元格值的行数据

Sheet2中Sheet2

NB：我的VBA或宏知识是非常基本的。如果我没有太多要求，那么应用解决方案的解释就会很好。使用Office 365最新版本

你的'VBA或宏观知识'不仅看起来'非常基本';事实上，它似乎并不存在。 – Jeeped

嗯，没错。任何建议或方向将不胜感激。无论如何，我可以改善我的问题？ – vungvang

我投票结束您的问题，因为您要求提供代码而不提供任何代码。这不是获得免费代码的地方，你太懒惰或无法编写代码。改进你的问题：**写代码并在你的问题中包含它，并描述任何错误或问题**（[问]]。 – Jeeped

答

如果您很难找到开始的位置，可以尝试使用此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

非常感谢您的持续支持。当然，我会从这里开始并更新。再次感谢。 – vungvang

自动重新排列基于单元格值的行数据

相关推荐