Excel/WPS表格 列名列号转换（以列号获取列名、以列名获取列号）

<think>我们根据新的要求调整代码：1.将持续时间转换为秒（已实现）2.设置目标工作表的所有单元格居中显示3.其他要求与之前相同注意：在之前的代码中，我们已经处理了时间格式和持续时间转换。现在需要添加单元格居中的设置。修改点：-在代码最后，添加设置目标工作表整个数据区域居中的代码。另外，注意标题行已经设置，所以居中的范围是从A1到最后一列（F列）的最后一数据行。步骤：1.创建目标工作表并写入数据2.设置时间列的格式（之前已做）3.设置整个数据区域（包括标题）居中我们将使用以下代码设置居中：dstSheet.Range("A1:F"& dstRow -1).HorizontalAlignment =xlCenter注意：因为dstRow是下一个空行的行号，所以数据最后一行是dstRow-1。同时，我们还需要考虑标题行（第1行）也要居中。完整代码：</think>以下是根据您的最新要求完善的VBA宏代码，增加了单元格居中显示功能并优化了数据处理逻辑： ```vb Sub GenerateSatelliteProgramReportV3() Dim srcSheet As Worksheet Dim dstSheet As Worksheet Dim lastRow As Long, dstRow As Long Dim signalCell As Range, detailCell As Range Dim signalStr As String, detailStr As String Dim programs() As String, satellite As String Dim programCount As Integer, i As Integer Dim durationSeconds As Long ' 设置源工作表和目标工作表 Set srcSheet = ThisWorkbook.Sheets("告警记录") ' 创建目标工作表（如果存在则先删除） Application.DisplayAlerts = False On Error Resume Next ThisWorkbook.Sheets("卫星节目故障统计表").Delete On Error GoTo 0 Application.DisplayAlerts = True Set dstSheet = ThisWorkbook.Sheets.Add(After:=srcSheet) dstSheet.Name = "卫星节目故障统计表" ' 创建目标表头 dstSheet.Range("A1:F1") = Array("影响卫星", "影响节目", "发生时间", "结束时间", "持续时间(秒)", "故障类型") ' 获取源数据最后行 lastRow = srcSheet.Cells(srcSheet.Rows.Count, "C").End(xlUp).Row dstRow = 2 ' 目标表起始行 ' 遍历源数据行（从第3行开始） For Each dataRow In srcSheet.Range("C3:C" & lastRow).Rows Set signalCell = dataRow.Cells(1, 1) ' C列（信号名称） Set detailCell = signalCell.Offset(0, 6) ' I列（故障详情） signalStr = CStr(signalCell.Value) detailStr = CStr(detailCell.Value) ' 解析信号名称 Dim splitSignal() As String splitSignal = Split(signalStr, "_") If UBound(splitSignal) < 1 Then GoTo NextRow ' 跳过无效格式 satellite = splitSignal(UBound(splitSignal)) ' 获取卫星名称 ' 提取所有节目名称 Dim programStr As String programStr = Left(signalStr, Len(signalStr) - Len(satellite) - 1) programs = Split(programStr, "/") programCount = UBound(programs) + 1 ' 获取当前行其他数据 Dim occurTime As String, resumeTime As String, durationStr As String, faultType As String occurTime = FormatDateTime(signalCell.Offset(0, 3).Value, vbGeneralDate) ' F列（发生时间） resumeTime = FormatDateTime(signalCell.Offset(0, 4).Value, vbGeneralDate) ' G列（恢复时间） durationStr = signalCell.Offset(0, 5).Value ' H列（持续时间） faultType = signalCell.Offset(0, 2).Value ' E列（故障类型） ' 将持续时间转换为秒 durationSeconds = ConvertDurationToSeconds(durationStr) ' 为每个节目创建记录 For i = 0 To programCount - 1 dstSheet.Cells(dstRow, 1) = satellite dstSheet.Cells(dstRow, 2) = programs(i) dstSheet.Cells(dstRow, 3) = occurTime dstSheet.Cells(dstRow, 4) = resumeTime dstSheet.Cells(dstRow, 5) = durationSeconds dstSheet.Cells(dstRow, 6) = faultType dstRow = dstRow + 1 Next i NextRow: Next dataRow ' 按节目名称排序 If dstRow > 2 Then With dstSheet.Sort .SortFields.Clear .SortFields.Add Key:=dstSheet.Range("B2:B" & dstRow - 1), _ SortOn:=xlSortOnValues, Order:=xlAscending .SetRange dstSheet.Range("A1:F" & dstRow - 1) .Header = xlYes .Apply End With End If ' 设置时间列格式 dstSheet.Columns("C:D").NumberFormat = "yyyy-mm-dd hh:mm:ss" dstSheet.Columns("E").NumberFormat = "0" ' 自动调整列宽 dstSheet.Columns("A:F").AutoFit ' 设置所有单元格居中显示 If dstRow > 2 Then With dstSheet.Range("A1:F" & dstRow - 1) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End If ' 冻结标题行 dstSheet.Rows(1).FreezePanes = True MsgBox "卫星节目故障统计表生成完成！共处理 " & dstRow - 2 & " 条记录。" End Sub ' 将时:分:秒格式转换为秒 Function ConvertDurationToSeconds(durationStr As String) As Long Dim parts() As String Dim hours As Integer, minutes As Integer, seconds As Integer ' 分割时间字符串 parts = Split(durationStr, ":") ' 确保有三部分 If UBound(parts) < 2 Then ConvertDurationToSeconds = 0 Exit Function End If ' 转换为数值 On Error Resume Next hours = CInt(parts(0)) minutes = CInt(parts(1)) seconds = CInt(parts(2)) On Error GoTo 0 ' 计算总秒数 ConvertDurationToSeconds = hours * 3600 + minutes * 60 + seconds End Function ``` ### 主要优化功能： 1. **单元格居中显示**： ```vb With dstSheet.Range("A1:F" & dstRow - 1) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With ``` - 设置整个数据区域（包括标题行）水平居中和垂直居中 - 仅当有数据时执行（`If dstRow > 2 Then`） 2. **时间格式处理**： - 使用`FormatDateTime`确保时间格式统一 - 持续时间列显示为纯数字（秒数） - 时间列应用自定义格式`"yyyy-mm-dd hh:mm:ss"` 3. **用户体验增强**： - 添加标题行冻结：`dstSheet.Rows(1).FreezePanes = True` - 自动调整列宽保持美观 - 完成时显示处理记录数量的消息框 4. **错误处理优化**： - 跳过无效的信号名称格式 - 持续时间转换添加错误处理 - 空表检查防止运行时错误 ### 完整功能说明： 1. **数据提取流程**： - 解析信号名称 → 分离卫星名和节目名 - 提取时间信息 → 格式化为标准时间格式 - 转换持续时间 → 时:分:秒 → 秒数 - 复制故障类型 → 保持原样 2. **数据处理逻辑**： ```mermaid graph TD A[遍历源数据行] --> B{解析信号名称} B -->|成功| C[提取节目名列表] B -->|失败| D[跳过此行] C --> E[获取时间数据] E --> F[转换持续时间] F --> G[为每个节目创建记录] G --> H[添加到目标表] H --> I[排序节目名称] I --> J[设置格式和居中] ``` 3. **输出格式要求**： | 列名 | 格式 | 说明 | |--------------|---------------------|----------------------| | 影响卫星 | 文本 | 居中显示 | | 影响节目 | 文本 | 居中显示，按字母排序 | | 发生时间 | yyyy-mm-dd hh:mm:ss | 居中显示 | | 结束时间 | yyyy-mm-dd hh:mm:ss | 居中显示 | | 持续时间(秒) | 数字 | 居中显示 | | 故障类型 | 文本 | 居中显示 | ### 使用说明： 1. 在WPS Excel中按`Alt+F11`打开VBA编辑器 2. 插入新模块并粘贴上述代码 3. 运行宏`GenerateSatelliteProgramReportV3` 4. 结果将输出到新建的"卫星节目故障统计表"，具有以下特点： - 所有单元格内容居中显示 - 标题行冻结方便查看 - 时间格式统一规范 - 节目名称按字母顺序排序 - 持续时间显示为秒数 ### 注意事项： - 确保源数据格式符合描述要求 - 如果信号名称格式不符合`节目1/节目2/..._卫星名`规范，该行将被跳过 - 持续时间转换仅支持`时:分:秒`格式，其他格式可能返回0