表1共有1万行,如何BVA逐行扫描和隔行扫描复制表2的第一行

来源：蜘蛛抓取(WebSpider) 时间：2016-10-19 04:12 标签： 逐行扫描和隔行扫描
查看: 4193|回复: 3
VBA逐行读取TXT文件，一整行导入一个单元格
阅读权限10
在线时间 小时
本帖最后由 kknd22 于
12:48 编辑
开始搜索到一个帖子里的代码都可以用：
可是导入后的数据，因为txt每行里边都有空格，被分别导入了多个单元格，例如TXT第一行文本是 “测试 测试”，则导入后A1=“测试”， B1=”测试”。
我现在想要这样一个效果：
A1= TXT里第一行的所有数据
A2= TXT里第二行的所有数据
A3= TXT里第三行的所有数据
也就是A1=&测试 测试&
请问这样VBA可以实现吗？
---------------------------------------------
已解决，感谢sevenstar网友！
阅读权限10
在线时间 小时
& & & & & & & &
或者改改那个帖子里的代码，只要让他不因读到空格而断开就可以了。
阅读权限50
在线时间 小时
原代码修改了一下，见附件：
12:19 上传
点击文件名下载附件
11.09 KB, 下载次数: 182
阅读权限10
在线时间 小时
sevenstar 发表于
原代码修改了一下，见附件：
搞定，就是这样，多谢sevenstar网友！
Sub AAA()
Worksheets(&Sheet1&).Range(&A1:A50&).ClearContents
& & Open ThisWorkbook.Path & &\& & &实验.txt& For Input As #1
& && &&&s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
& & Close #1
& &[a1].Resize(UBound(s) + 1, 1) = Application.Transpose(s)
End Sub
复制代码
我又稍微改了下清屏，这样就行了。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师EXCEL表格如何逐行引用_百度知道页面&#x91载开启
页面&#x91载开启 欢&#x8光临本站，页面正在&#x91新载入，请稍候 ...查看: 1154|回复: 17
求助：如何实现打印后自动逐行向下保存数据到新工作表
阅读权限20
在线时间 小时
自己制作了一张收费凭证，工作表“收据”的内容是按学生相关信息变化的，想要达到打印当前信息后并把“收据”中的相关信息添加到工作表“明细”中，当再更换“收据”中的信息时，能够在“明细”中逐行向下复制，请各位大神帮忙。
另外“择校费”所在单元格是否能够根据工作表“录取分数段”中的分数区间和走读住宿条件进行提取呢？
(561.11 KB, 下载次数: 36)
07:16 上传
点击文件名下载附件
阅读权限20
在线时间 小时
Sub 按钮12_Click()
& & Dim R(), R1&, x&, i&
& & ExecuteExcel4Macro &PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)& 'PrintOut
& & ReDim R(13)
& & R() = Array(&A2&, &B3&, &D3&, &F3&, &D4&, &B4&, &B5&, &D5&, &F5&, &H5&, &B6&, &D6&, &F6&, &H6&)
& & With Sheets(&明细&)
& && &&&R1 = .Range(&A65536&).End(xlUp).Row + 1
& && &&&For x = 0 To 13
& && && && &.Cells(R1, 1) = R1 - 1
& && && && &.Cells(R1, x + 2) = Range(R(x))
& && &&&Next x
& & End With
& & MsgBox &打印保存结束！&
End Sub
复制代码
阅读权限20
在线时间 小时
winglet2350 发表于
试了一下，能实现收据打印，但是数据并没有提取到明细表里，麻烦您再帮看看，谢谢~
阅读权限20
在线时间 小时
szzhaoguomin 发表于
试了一下，能实现收据打印，但是数据并没有提取到明细表里，麻烦您再帮看看，谢谢~
学费格的公式：
=IFERROR(VLOOKUP(IF(F3&=400,录取分数段!A2,IF(F3&=390,录取分数段!A3,录取分数段!A4)),录取分数段!A:R,IF(B4=&否&,4,12),0),&&)
&IF(B4=&否&,4,12)&里的4和12按你表“录取分数段”的列数，其它费用的列自己数数列数。
阅读权限20
在线时间 小时
& & & & & & & &
szzhaoguomin 发表于
试了一下，能实现收据打印，但是数据并没有提取到明细表里，麻烦您再帮看看，谢谢~
不对，你看看你的明细表是不是把数据放到表尾了。
阅读权限20
在线时间 小时
试验的工作表就是附件里的那个，我只是把您的代码添加进去了，能打印，不能提取数据到明细表，我是代码盲，惭愧！
阅读权限20
在线时间 小时
szzhaoguomin 发表于
试验的工作表就是附件里的那个，我只是把您的代码添加进去了，能打印，不能提取数据到明细表，我是代码盲， ...
你把你的“明细表”的第一列内容清了。程序没错。
阅读权限20
在线时间 小时
& & & & & & & &
数据确实在表尾，应该改哪个代码才能从第一行开始呢
阅读权限20
在线时间 小时
明细表中的“序号”列清除之后，提取过来的数据从第一行开始了，不过数据错开了一列
阅读权限20
在线时间 小时
弄明白了，我这人有点笨，多谢大神指教，非常感谢，这回干活就能轻松多了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 逐行扫描和隔行扫描 的文章

 

随机推荐