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

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

步骤 1：准备数据

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

步骤 2：打开 VBA 编辑器

1. 按 Alt + F11 打开 VBA 编辑器。

2. 在左侧的“项目资源管理器”中，找到你的工作簿（例如 VBAProject (你的工作簿名称)）。

3. 右键点击工作簿名称，选择 插入 > 模块，新建一个模块。

步骤 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：运行宏

1. 关闭 VBA 编辑器，返回 Excel。

2. 按 Alt + F8 打开“宏”对话框。

3. 选择 ParseStringToColumns，点击“运行”。

4. 宏会自动将字符串解析为两列数据，并放置在 A2 开始的区域。

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

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

1. 解锁所有单元格：

   • 按 Ctrl + A 全选表格。

   • 右键选择“设置单元格格式”。

   • 在“保护”选项卡中，取消勾选“锁定”，点击“确定”。

2. 锁定 H 单元格：

   • 选中 H 的值单元格（例如 B4）。

   • 右键选择“设置单元格格式”。

   • 在“保护”选项卡中，勾选“锁定”，点击“确定”。

3. 保护工作表：

   • 点击“审阅”选项卡，选择“保护工作表”。

   • 设置密码（例如 123），并确认密码。

   • 在“允许此工作表的所有用户进行”选项中，勾选“选择未锁定的单元格”。

   • 点击“确定”。

遇到问题：

无法在未启用宏的工作簿中保存以下功能

解决1：将工作簿另存为启用宏的文件格式：

1. 点击 文件 > 另存为。

2. 在“保存类型”下拉菜单中，选择 Excel 启用宏的工作簿 (*.xlsm)。

解决2：启用宏

如果你希望在当前工作簿中启用宏，可以按照以下步骤操作：

1. 点击 文件 > 选项。

2. 在“Excel 选项”对话框中，选择 信任中心 > 信任中心设置。

3. 在“信任中心”对话框中，选择 宏设置。

4. 选择 启用所有宏（不推荐，可能存在安全风险）或 禁用所有宏，并发出通知（推荐）。

5. 点击“确定”保存设置。

6. 重新打开工作簿时，Excel 会提示是否启用宏，选择“启用内容”即可。