Question

尝试编写脚本以删除除最后使用的单元格之外的行中的所有单元格，然后将所有剩余数据移动到第一列。

见下文：

|--| is an empty cell
|XX| is a cell with unneeded data
|DATA| is the cell with Data I require.

Before:
|--|--|--|XX|XX|XX|XX|DATA|
|--|--|XX|XX|XX|DATA|

After
|DATA|
|DATA|

Answer 1

假设您的意思是Excel：

<强>过程：

循环播放
将tempVal变量设置为lastColumn
将列循环到该行的最后一列，清除每个单元格
将A列的值设置为tempVal

<强>试验：

Sub GetLastColumnValue()

Dim lastRow As Long
Dim lastCol As Long
Dim sheet As String
Dim tempVal As String

sheet = "Sheet1"
lastRow = Sheets(sheet).Range("A" & Rows.Count).End(xlUp).row   'Using Range()

    For lRow = 2 To lastRow

        lastCol = Sheets(sheet).Cells(lRow, Columns.Count).End(xlToLeft).Column
        tempVal = Sheets(sheet).Cells(lRow, lastCol).Text

        For lCol = 1 To lastCol
            Sheets(sheet).Cells(lRow, lCol).ClearContents
        Next lCol

        Sheets(sheet).Cells(lRow, 1) = tempVal

    Next lRow

End Sub

VBA删除除最后使用的单元格之外的每一行中的所有单元格

1 个答案: