当前位置：首页 > article >正文

EXCEL数据解析与加密处理方法

article 2025/2/11 1:31:48

在 Excel 中，你可以通过以下步骤将字符串 h1,-109218;h10,-103431;h101,-102563;... 解析为两列数据（一列为 h 变量，另一列为对应的数字）：

步骤 1：准备数据

将字符串 h1,-109218;h10,-103431;h101,-102563;... 粘贴到 Excel 的某个单元格中（例如 A1）。

步骤 2：打开 VBA 编辑器

按 Alt + F11 打开 VBA 编辑器。
在左侧的“项目资源管理器”中，找到你的工作簿（例如 VBAProject (你的工作簿名称)）。
右键点击工作簿名称，选择 插入 > 模块，新建一个模块。

步骤 3：编写 VBA 代码

在模块中输入以下代码：

Sub ParseStringToColumns()
    Dim inputCell As Range
    Dim outputRange As Range
    Dim data As String
    Dim pairs() As String
    Dim i As Long
    
    ' 设置输入单元格（包含字符串的单元格）
    Set inputCell = ThisWorkbook.Sheets(1).Range("A1")
    
    ' 设置输出起始位置（解析后的数据将放在这里）
    Set outputRange = ThisWorkbook.Sheets(1).Range("A2")
    
    ' 获取输入字符串
    data = inputCell.Value
    
    ' 按分号拆分字符串
    pairs = Split(data, ";")
    
    ' 遍历每个键值对
    For i = LBound(pairs) To UBound(pairs)
        If pairs(i) <> "" Then
            ' 按逗号拆分键值对
            Dim keyValue() As String
            keyValue = Split(pairs(i), ",")
            
            ' 将结果写入输出区域
            outputRange.Offset(i, 0).Value = keyValue(0) ' 第一列：变量
            outputRange.Offset(i, 1).Value = keyValue(1) ' 第二列：值
        End If
    Next i
    
    MsgBox "解析完成！", vbInformation
End Sub

步骤 4：运行宏

关闭 VBA 编辑器，返回 Excel。
按 Alt + F8 打开“宏”对话框。
选择 ParseStringToColumns，点击“运行”。
宏会自动将字符串解析为两列数据，并放置在 A2 开始的区域。

--------加密处理方法-----------

锁定 H 单元格并设置密码保护

解锁所有单元格：
- 按 Ctrl + A 全选表格。
- 右键选择“设置单元格格式”。
- 在“保护”选项卡中，取消勾选“锁定”，点击“确定”。
锁定 H 单元格：
- 选中 H 的值单元格（例如 B4）。
- 右键选择“设置单元格格式”。
- 在“保护”选项卡中，勾选“锁定”，点击“确定”。
保护工作表：
- 点击“审阅”选项卡，选择“保护工作表”。
- 设置密码（例如 123），并确认密码。
- 在“允许此工作表的所有用户进行”选项中，勾选“选择未锁定的单元格”。
- 点击“确定”。