小编Lea*_*ira的帖子

我正在使用下面的代码修剪一些包含空格的"空白单元格".事情是需要花费太多时间,就像循环到每个细胞一样.我想要的是删除所有单元格中的空格(开头和结尾,不是中间的空格).

有没有更简单的方法可以一次申请？

For a = 1 To ScenarioTableLastRow
    For f = 1 To ScenarioTableLastColumn

       If Cells(a, f) <> "" Then
            Cells(a, f) = Excel.Application.Trim(Cells(a, f))
       End If

    Next f
Next a

我在下面有这个代码,其中Set x不起作用.这就像Set f那样奇怪.我不知道为什么,我在我的代码中间,这根本不起作用.在我看来,它与Set f相同.有什么想法吗？

Sub Macro2()

Dim WsOuput As Worksheet
Dim WsScenarios As Worksheet
Dim ScenarioIDrow As Long
Dim ScenarioIDColumn As Long
Dim ScenarioIDinScenarios As Long
Dim ScenarioIDinScenariosC As Long
Dim p As String
Dim q As String
Dim x As Range
Dim z As String
Dim r As String
Dim RgnScenarioOutput As Range
Dim RgnScenarioScenario As Range
Dim Findsomething As Range
Dim FindAgain As Range
Dim lLastRow As Long
Dim f As Range
Dim fAgainAddress As Range

Set WsOutput …