如何刪除Excel工作表中除最后兩列以外的所有內容

Question

我有一個電子表格，可以顯示我的保管庫中〜13000個文件的文件路徑。 每行可能具有不同數量的列。 我真的只對最后兩列，其中的文件夾和文件名感興趣。 手動完成很多行。 我需要一種方法來刪除每行中除最后兩列以外的所有列，或者按列數對其進行排序。 我不是一個程序員，所以任何幫助將不勝感激。

Answer 1

假設您的意思不是VBA，而不是VB.NET（如果是這種情況，請更新標簽）

這會將最后兩列（非空白）放入A和B列。因此，您可以編寫代碼以插入兩列，也可以手動執行，就像在代碼運行后刪除所有列一樣。

Public Sub Test()
'Insert 2 columns: A&B

Dim LastCol As Integer
For CurRow = 2 To Sheet1.UsedRange.Rows.Count + 1
    LastCol = getLastColumn(CurRow)
    If LastCol > 2 Then
        Sheet1.Cells(CurRow, 1) = Sheet1.Cells(CurRow, LastCol - 1)
        Sheet1.Cells(CurRow, 2) = Sheet1.Cells(CurRow, LastCol)
    End If
Next

'Delete All columns except A&B
End Sub

Private Function getLastColumn(ByVal CurrentRow As Integer) As Integer
getLastColumn = -1

For ColCounter = Sheet1.UsedRange.Columns.Count + 1 To 1 Step -1
    If Sheet1.Cells(CurrentRow, ColCounter) <> "" Then
        getLastColumn = ColCounter
        Exit For
    End If
Next
End Function

Answer 2

與vb.net相比，這似乎是一個關於如何使用excel的問題，但是我還是會嘗試回答它：

只需單擊列標題並將鼠標拖動到要刪除的所有列，然后右鍵單擊任何選定的列並從出現的上下文菜單中選擇“刪除列”。