在将 Excel 电子表格导入 MySql 链接表之前，我需要一个宏来从 Excel 电子表格中获取一些数据。
有一列慈善机构名称和一列以逗号分隔的id列表（这些代表慈善机构类型） 例如
Column A
CharityName1
CharityName2
CharityName3
CharityName4
Column B
100, 101,104
(empty)
104
100,105
我想这样写一个新的csv文件如下
1,100
1,101
1,104
3,104
4,100
4,105
提前感谢您的帮助
【问题讨论】：
此代码将快速创建具有此格式的 csv 文件c:\temp\dump.csv
[已更新以处理您的格式 我注意到您可能丢失了数据，因为 Excel 已将科学记数法应用于您的字段。现在我添加了一个丑陋的解决方法来填充 0。 B2 应该是一个 30 位的字段吗？]
Sub GetEm()
Dim x()
Dim lngCnt As Long
Dim lngCnt2 As Long
Dim lngE As Long
Dim objFSO As Object
Dim objTF As Object
Dim vArr
Dim vArrElem
Set objFSO = CreateObject("scripting.filesystemobject")
Set objTF = objFSO.createtextfile("c:\temp\dump.csv", 2)
x = Application.Transpose(Range("B1", Cells(Rows.Count, "B").End(xlUp)))
For lngCnt = 1 To UBound(x)
lngE = InStr(x(lngCnt), "E")
If lngE > 0 Then
x(lngCnt) = CStr(Replace(Replace(x(lngCnt), ".", vbNullString), "E+", vbNullString) & Application.Rept("0", Right$(x(lngCnt), 2) - lngE + 1))
End If
If Len(x(lngCnt)) > 0 Then
If Len(x(lngCnt)) Mod 3 = 0 Then
For lngCnt2 = 1 To Len(x(lngCnt)) Step 3
objTF.writeline lngCnt & ",'" & Mid$(x(lngCnt), lngCnt2, 3)
Next
End If
End If
Next
objTF.Close
End Sub
【讨论】：
, 分隔。 - 我的第一个代码所依赖的。但我看到这些, 实际上只是格式化，您的数据是一长串数字，需要切成 3 个字符长度。我会更新
我将遍历第二列并将每个单元格中的值放入一个数组中，我们称之为 mainArray。 （这会迭代行和列，请注意：How to iterate through a variable-column-length range in Excel using VBA）
然后我会解析直到分隔符 ',' 并将它们存储在一个名为 cellArray 的数组中，第一个值作为它们从中获取的编号单元格。然后，用新的 cellArray 替换 mainArray 中的原始单元格值。 (String-Manipulation: Split this String delimited by a - character?)
所以单元格 B1 将变为 cellArray = { 1, 100, 101, 104 }，这将是 mainArray 中的第一个值。对 B 列中的每个单元格执行此操作以获取已使用的范围。
然后我会创建一个新的 csv (How to create a separate CSV file from VBA?)，然后将数据输入其中。
要输入数据，我会遍历每个保存的数组并存储为 CellValue = array[0] + ", " + array[i]
最后，我会保存我的新 CSV 文件。
【讨论】：