把excel表格数据变成希望的文本格式
- 2026-03-23 20:57:23
把excel表格数据变成希望的文本格式
需求提出：
把红色箭头左边的数据变成箭头右边的文本格式，保存在与Excel文件相同的路径下。
细细看完这个文本数据，发现是国家—A—主公，然后是谋士—B—主公，也不知道这样的格式到底有什么用，反正我是没有看出个子丑寅卯来。
测试代码：
Sub test()Dim i&, j&Dim arr, brr() As StringApplication.ScreenUpdating = FalseWith Sheet1arr = .Range("A2:C" & .Range("A1048576").End(xlUp).Row)End Withj = UBound(arr)ReDim brr(1 To j * 2)For i = 1 To jbrr(i) = arr(i, 1) & "—A—" & arr(i, 2)brr(i + j) = arr(i, 3) & "—B—" & arr(i, 2)Next imypath = ThisWorkbook.Path & "\test.txt"Open mypath For Output As #1Print #1, Join(brr, vbCrLf)Close #1Application.ScreenUpdating = TrueEnd Sub
代码解释：
第11行：重新定义字符串数组brr的大小：1到j*2的一维数组，预留两倍于原数据的存储空间。
第13-16行：遍历原数组arr的所有行，给brr前j个元素赋值和后j个元素赋值。
第21行：将数组brr的所有元素，用换行符连接成字符串，写入#1文件
第23行：关闭已打开的#1文件，释放文件资源。
今天的分享就到这儿啦，非常感谢您对“Python SQL审天下”公众号的关注和点赞。如果您觉得我的公众号能给您带来一丝丝的收获，请多多转发给您的朋友圈，让更多的人看到并了解。也许您不经意间的点赞和转发，会给他人带来独特的体验和感受。
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
