没问题，我来一步步教你实现这个需求——这其实是个挺常用的场景，我自己也折腾过好几次😉，分四个核心步骤来：

第一步：把你的C代码编译成可被VBA调用的DLL #

首先得把你的C代码改成能导出函数的格式，然后编译成DLL。这里以Visual Studio为例（其他编译器比如MinGW也可以，步骤类似）：

1. 修改C代码，添加导出声明 #

要让VBA能找到DLL里的函数，必须给函数加上__declspec(dllexport)，同时要指定调用约定（VBA默认用__stdcall，所以最好和它匹配）。举个例子：

// 假设你的C代码是一个计算两数之和的函数，修改后如下
#include <stdio.h>

// 导出函数：__declspec(dllexport)让DLL暴露这个函数，__stdcall匹配VBA的默认调用约定
__declspec(dllexport) int __stdcall Add(int num1, int num2) {
    return num1 + num2;
}

// 如果是处理字符串的函数，示例：
__declspec(dllexport) void __stdcall ProcessString(const char* input, char* output, int maxOutputLen) {
    // 这里写你的字符串处理逻辑，比如复制或转换
    int i = 0;
    while (input[i] != '\0' && i < maxOutputLen - 1) {
        output[i] = input[i];
        i++;
    }
    output[i] = '\0'; // 别忘了加C字符串的结束符
}

2. 编译生成DLL #

• 打开Visual Studio，新建「Windows桌面向导」项目，选择「动态链接库(DLL)」
• 把修改后的C代码添加到项目中
• 关键！选择匹配Excel位数的平台：如果你的Excel是32位，就选x86；64位Excel选x64（可以在Excel的「文件>账户>关于Excel」里查看位数）
• 点击「生成」，在项目的Debug/Release目录下就能得到你的.dll文件了

第二步：在VBA中声明DLL函数 #

打开Excel，按下Alt+F11进入VBA编辑器，插入一个新模块（右键项目>插入>模块），然后在模块顶部声明DLL函数：

' 用条件编译兼容32位和64位Excel
#If VBA7 Then
    ' 64位Excel需要加PtrSafe关键字
    Declare PtrSafe Function Add Lib "C:\Your\Full\Path\To\YourDLL.dll" (ByVal num1 As Long, ByVal num2 As Long) As Long
    Declare PtrSafe Sub ProcessString Lib "C:\Your\Full\Path\To\YourDLL.dll" (ByVal inputStr As String, ByVal outputStr As String, ByVal maxLen As Long)
#Else
    ' 32位Excel的声明
    Declare Function Add Lib "C:\Your\Full\Path\To\YourDLL.dll" (ByVal num1 As Long, ByVal num2 As Long) As Long
    Declare Sub ProcessString Lib "C:\Your\Full\Path\To\YourDLL.dll" (ByVal inputStr As String, ByVal outputStr As String, ByVal maxLen As Long)
#End If

⚠️ 注意：这里的路径必须是DLL的绝对路径，或者把DLL放到Excel安装目录/系统目录（比如System32），这样可以只写DLL文件名。

第三步：编写VBA宏读取Excel数据并调用DLL #

现在就可以写宏来读取Excel单元格的数据，传给DLL函数，再把结果写回工作表了。举个示例：

Sub TestMyCDLL()
    ' 1. 读取Excel工作表中的数据
    Dim numA As Long, numB As Long
    numA = Range("A1").Value ' 假设A1是第一个测试数
    numB = Range("A2").Value ' A2是第二个测试数
    
    ' 2. 调用DLL的Add函数
    Dim sumResult As Long
    sumResult = Add(numA, numB)
    
    ' 3. 把结果写回Excel
    Range("A3").Value = "计算结果：" & sumResult
    Range("A3").Font.Color = RGB(0, 128, 0)
    
    ' --- 测试字符串处理函数的示例 ---
    Dim inputText As String, outputText As String
    inputText = Range("B1").Value ' B1是输入字符串
    ' 预分配足够的空间给输出字符串（这里设255个字符）
    outputText = String(255, vbNullChar)
    ' 调用DLL的字符串处理函数
    ProcessString inputText, outputText, 255
    ' 截取有效字符（去掉多余的空字符）
    outputText = Left(outputText, InStr(outputText, vbNullChar) - 1)
    ' 写回结果到B2
    Range("B2").Value = "处理后：" & outputText
End Sub

写完后，按下F5运行宏，就能看到Excel数据被传入C代码处理后的结果啦！

常见坑点要注意 #

• 位数必须完全匹配：Excel和DLL的位数（32/64）不一致的话，会直接报错“找不到指定模块”或者崩溃，这是最容易踩的坑！
• 参数类型要对应：C和VBA的类型别搞混：
  • C的int → VBA的Long
  • C的double → VBA的Double
  • C的char*字符串 → VBA的ByVal String
• 调用约定一致：如果你的C函数用的是默认的__cdecl（不是__stdcall），那VBA声明里要加Cdecl关键字，比如：Declare PtrSafe Function Add Lib "..." Cdecl (ByVal num1 As Long, ByVal num2 As Long) As Long
• DLL路径别写错：如果路径有空格，要把路径用双引号包起来，比如Lib """C:\My DLLs\test.dll"""（三个双引号是VBA里转义双引号的方式）

内容的提问来源于stack exchange，提问作者Mohamed Azzam