我想将给定范围内的值转换为VBA字符串,其中原始单元格值由任何选定的列分隔符和行分隔符分隔.分隔符可以是一个字符或更长的字符串.行分隔符是该行末尾的字符串.字符串应该在我们从左上角,从左到右,到右下角读取文本时完成.
以下是范围A1中的VALUES示例:C5:
+----+----+----+
| A1 | B1 | C1 |
+----+----+----+
| A2 | B2 | C2 |
+----+----+----+
| A3 | B3 | C3 |
+----+----+----+
| A4 | B4 | C4 |
+----+----+----+
| A5 | B5 | C5 |
+----+----+----+
期望的结果是VBA字符串:
A1,B1,C1@$A$2,$B$2,$C$2@A3,B3,C3@A4,B4,C4@A5,B5,C5@
为了便于阅读,我将这样展示:
A1,B1,C1@
A2,B2,C2@
A3,B3,C3@
A4,B4,C4@
A5,B5,C5@
作为列分隔符,我选择了,(逗号),并作为行分隔符@符号.当然这些可能是任何字符\r\n.
我想要从范围快速烹饪字符串的原因是因为我想通过ADO连接将其发送到SQL Server.正如我到目前为止测试的那样,它是即时传输大量数据的最快方法.如何在SQL Server上拆分此字符串的孪生问题在于:在SQL Server 中给定行分隔符和列分隔符的情况下将字符串拆分为表
解决方案1.遍历所有行和列.问题是,如果有更优雅的方式,然后循环所有行和列？我更喜欢VBA解决方案,而不是公式一.
解决方案2. Mat's Mug在评论中提出建议.CSV文件是理想的结果.我想在不保存的情况下即时完成.但好点 - 模仿CSV是我想要的,但我想要它而不保存.
赏金后编辑
Thomas Inzina的答案疯狂快速,他的解决方案是便携式的.普通的VBA循环比大型数据集上的JOIN等工作表函数更快.我不建议在VBA中使用工作表函数来实现此目的.我已经投票给所有人.谢谢你们.
介绍
去年@PrzemyslawRemin 提出了一个问题，即如何在 VBA 中将计数器列添加到现有矩阵中， 而无需额外循环且无需修改工作表。
本示例中的原始矩阵是一个（基于 1 的 2 维）数据字段数组，源自（源单元格仅包含它们的地址字符串；要填充数字的插入行）
Dim matrix As Variant
matrix = Range("A1:C5").value
输入矩阵：------------ ? 想要的结果：
+----+----+----+ +----+----+----+----+
| A1 | B1 | C1 | | 1 | A1 | B1 | C1 |
+----+----+----+ +----+----+----+----+
| A2 | B2 | C2 | | 2 | A2 | B2 | C2 |
+----+----+----+ +----+----+----+----+
| A3 | B3 | C3 | | 3 | A3 | B3 | C3 |
+----+----+----+ …