Question

我是您所在社区的新成员，我的名字是托马斯。我曾经几年前成为VisualFoxPro Developper，但现在我正在努力学习如何处理Excel（2011年在Mac上）和VBA。只有我的业余时间;-)。自从我开始以来，我已经搜索了很多，并且经常在这里找到答案，所以我来了。

这是（几乎）全貌：我正在从HTML文件中恢复数据（Bridge竞争结果），在某些时候（行）有固定的列数据，一列包含由“ - ”分隔的2个玩家的名字。我没有问题来检索第一个但不能修剪第二个。我试过，TRIM，CLEAN，SUBSTITUE和所有CHAR - ＆gt; 31和CHAR 127,129,141,143,144和157。我甚至尝试过这个，在谷歌的某个地方找到了：

Sub Clean_and_Trim_Cells()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim s As String
    For Each c In ActiveSheet.UsedRange
        s = c.Value
        If Trim(Application.Clean(s)) <> s Then
            s = Trim(Application.Clean(s))
            c.Value = s
        End If
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

所以，对于同一个玩家，我最终会得到不同长度的第一个被正确训练而另一个更长的玩家。我不明白。

以下是我如何定义列的长度和提取名称。

Sub PieceOfCode

    If Left(Trim(cDataString), 4) = "Rang" Then      ‘Header row

        'Here we define the columns width and initiate data collection
        nScore = 0
        cTeamName = ""
        cTeam = ""
        cP1 = ""
        cP2 = ""
        nCol1 = InStr(cDataString, "Rang")
        nCol2 = InStr(cDataString, "Paire")
        nCol3 = InStr(cDataString, "Score")
        nCol4 = InStr(cDataString, "Nom")
        nCol5 = InStr(cDataString, "Equipe")
        nCol1Length = nCol2 - 1
        nCol2Length = nCol3 - nCol2
        nCol3Length = nCol4 - nCol3
        nCol4Length = nCol5 - nCol4
        nCol5Length = Len(cDataString) - nCol5 + 1

        'And further in the process...

        nScore = Val(Mid(Replace(cDataString, ",", "."), nCol3, nCol3Length))
        cNamesString = Mid(cDataString, nCol4, nCol5 - nCol4)
        nSplitTeamNamesPos = InStr(cNamesString, " - ")
        cP1 = Trim(Mid(cNamesString, 1, nSplitTeamNamesPos - 1))
        cP2 = Trim(Mid(cNamesString, nSplitTeamNamesPos + 3))

    End If

End Sub

当我用这个构建数据透视表时，我为同一个玩家获得2个条目。

在这里，我必须在录音机的帮助下承认创建数据透视表的代码，但即使这就是原因，我也知道如何修剪我的字符串。

Sub CreatePivotTable()

    Dim nRowCount As Integer
    Dim cRowCount As String

    Sheets("Data").Select
    Range("A1").Select
    nRowCount = GetRowCount("Data")
    cRowCount = Trim(CStr(nRowCount))

    Range("A1:B" & cRowCount).Select

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Data!R1C1:R" & cRowCount & "C2", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="TempPvt!R1C1", TableName:="PivotTable8", DefaultVersion _
    :=xlPivotTableVersion14

    Sheets("TempPvt").Select

    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable8").PivotFields("Nom")
        .Orientation = xlRowField
        .Position = 1
    End With

    ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
    "PivotTable8").PivotFields("Score"), "Total", xlSum
    ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
    "PivotTable8").PivotFields("Score"), "Sum of Score2", xlSum
    ExecuteExcel4Macro _
    "PIVOT.FIELD.PROPERTIES(""PivotTable8"",""Sum of Score2"",""# Tours"",,4)"
    ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
    "PivotTable8").PivotFields("Score"), "Sum of Score2", xlSum
    ExecuteExcel4Macro _
    "PIVOT.FIELD.PROPERTIES(""PivotTable8"",""Sum of Score2"",""Moyenne"",,8)"

End Sub

最后这里有两个用于测试的标题字符串（BAPTISTE Claude是目标）。

Rang Paire得分Nom Equipe
302 1,83 Mme NIMSGERN Monique - BAPTISTE Claude Mme EMERIQUE

Rang Paire得分Nom Equipe
8 101 0,92 BAPTISTE Claude - MIM NIMSGERN Monique Mme EMERIQUE

就是这样。

Excel2011 VBA修剪字符串，包含数据透视表

0 个答案: