我想将图片一示例格式的文本复制到excel中,得到图片2的结果,要怎么样才能得到呢?

如题所述

建议使用vba实现

1、文本文件内容

2、vbe内输入代码


3、代码

Sub 按钮1_Click()
    Application.ScreenUpdating = False '关闭刷屏,提速
    ActiveSheet.UsedRange.ClearContents '清空表格内容
    F = Application.GetOpenFilename("文本文件 (*.txt), *.txt") '关闭刷屏打开窗口,供选择文件
    If F <> False Then
        a = 1
        b = 1
        Open F For Input As #1 '调用选中的文本文件
        While Not EOF(1) '循环读取文件内容
            Line Input #1, strl '每次读取一行
            If Len(strl) > 0 Then '如果改行内容不空,就写入单元格
                Cells(a, b) = strl
                b = b + 1
            Else
                If b <> 1 Then '否则换行
                    b = 1
                    a = a + 1
                End If
            End If
        Wend
        Close #1 '关闭文本文件
    End If
    Application.ScreenUpdating = True
End Sub

4、实现结果


温馨提示:内容为网友见解,仅供参考
第1个回答  2016-10-13

先将文本复制到word里

    将 “^p^p”(两个换行符)替换成  “####” (或者任意特殊符号)

    将 “^p”(单个换行符) 替换成 “ ”(空格)

    将“####”替换成“^p”

    复制到excel,如果没有分列,则按空格分列即可

本回答被网友采纳

我想将图片一示例格式的文本复制到excel中,得到图片2的结果,要怎么样才...
1、文本文件内容 2、vbe内输入代码 3、代码 Sub 按钮1_Click() Application.ScreenUpdating = False '关闭刷屏,提速 ActiveSheet.UsedRange.ClearContents '清空表格内容 F = Application.GetOpenFilename("文本文件 (*.txt), *.txt") '关闭刷屏打开窗口,供选择文件 If F <> False The...

Excel中怎样把左边(图片1)的数据排列方式转换成右边(图片2)的排列方式...
利用错位相等,即可解决,操作方法如下:1、两行两列为一组,建立错位相等公式,建立公式:C1=A3, D1=B3, C2=A4, D2=B4,2、选择区域( C1:D2)为单元组(注范围一定要选择对),竖拉(直到0出现停止)、横拉(直到0出现停止),3、你要的数据就是表中第一、二行,复制---选择性粘贴(粘贴数...

怎样将word文档中选择的内容复制到excel表格?
1、首先打开word文档,然后ctrl+V快捷键把复制的内容粘贴,然后点击粘贴选项的”只保留文本“选项即可,只会留下文字。2、或者ctrl+V粘贴文字后,再选中粘贴的所有文字,点击上方”开始“菜单里的”清楚所有格式“按钮即可解决。3、如果粘贴后是文本框,点击它进入编辑模式,然后把”形状轮廓“设置为”无...

怎么往Excel里复制文本,并使它们自动分行
1.先打开一个带有数据的文本文件,文本里的文字可以是横向也可以是竖向。这里示例是分列,分行的操作也是一样的。2.打开excel表格,将文本文件中的文字复制到excel表中,全部的文字都在一个单元格中,选中这个单元格。3.WPS office版本,Microsoft office2007也是一样的。然后一步步点,数据\/分列\/分割符...

怎样把word里的数据直接复制到excel中去呢?
1、打开要插入Word文档的Excel电子表格文件。2、单击要插入Word文档的单元格,然后选择菜单命令“插入”→“对象”。3、“对象”对话框“新建”选项卡中,选择对象类型“Microsoft Office Word文档”,并单击“确定”按钮。4、这时有Excel中会出现一个Word文档编辑框,在里面直接输入内容,方法与在Word中...

如何在Excel中计算出文本数字的结果
1、打开一个excel文件,我这里就找了几个简单的数据来作为示例。2、假如我这里用一个vlookup函数来进行查找运算,在右侧准备查询ht2的值。3、然后在E2写上公式=VLOOKUP(D2,A:B,2,)。4、在点击确定之后,在E2单元格显示的依然是公式内容,而不是查询结果。5、那么在这种情况下,我们首先要看一下...

如何将网页中的表格快速复制到EXCEL中
1、打开excle,在选项栏里单击数据--导入外部数据--新建Web查询。2、弹出来一个页面,勾选我可以识别此内容,允许播放,单击继续按钮。3、在电脑的浏览器的地址栏输入需要复制的网站地址,转到此网站里面。4、跳转到指定网页,点击箭头按钮,然后导入数据到Excel。5、先前打开的Excel表格会生成数据,至此...

excel如何把表一的数据引用到表二去
所需材料:Excel 2007示例。一、首先打开工作薄,以下图为例,要转移Sheet1 C5单元格。二、这时点击下方的“Sheet2”工作薄。三、选中要引用的单元格,然后点击公式栏。四、在公式栏中输入“=Sheet1!C5”,按下回车键。五、接下回车键后就可以把Sheet1C5内的数据引用至所选单元格内。

怎样把word表格复制到excel里去呢?
1、首先,打开媒介工具“记事本”,将word文件里需要导入的数据,复制粘贴到记事本当中,然后保存成为txt文件,本例中将txt文件取名为“数据源.txt”。2、打开excel表格,点击“数据”选项卡,找到“自文本”。3、点击“自文本”,弹出下一窗口,选择刚才保存的名为“数据源”的txt类型文件,点击“导入...

怎样使表格Sheet1中的数据复制到sheet2格式不变
下面sheet1中的是示例数据(如图);复制sheet1中的数据(如图);然后粘贴在sheet2中,这时可看到日期一栏的格式出现不同(如图);一般情况下,我们会拖动列宽来调整格式(如图);其实我们可以用一个很简洁的方法,使格式不变,复制到sheet2后,右下角会出现一个下拉菜单选项(如图);点击“保留源...

相似回答