excel批量提取七位数，并自动在下面插入，怎么操作？

使用len函数获取框内字符个数，除以7以后的结果就是添加的行数。公式示例：=LEN(A1)

然后使用mid函数依此提取框内第1-7、8-14、15-21……等的数字。

公式示例：=MID($A$1,7*ROW(A1)-6,7)，向下拖动直到取到最后的7位：

计算字符数，看是7的几倍

使用公式提取每7个字符填充单元格

自动就不好自动了，毕竟数据格式有点乱 ...
手动吧，不过不用一个个来。参考步骤如下：
1、增加辅助列，参考使用 =len（b2）
来识别单元格中数据长度。
2、使用筛选功能将 不是7（就是有多组数据）的数据筛选并复制到新表格中进行处理；
3、根据数据情况进行数据==》分列 ，分列条件使用 固定宽度（如果数据间都有空格就更好，使用空格作为分割符号即可），然后手动打下标尺（多次重复），直到将数据拆分成合适的大小，然后确定后完成分列；
4、分列完成后会获取很多数据为7位的数据（且不同行可能列数不同）；
5、选定所有的数据区（注意各行列数不同，不要漏了！）然后复制 ，再到一个新表a1单元格点鼠标右键==》选择性粘贴==》务必勾选 “转置”；
6、此时数据就行列互换了，数据排列大致是需要的，然后再手工将多列剪切成1列数据，并筛选删除空白值即可。
特别说明，如果原始表格后面有多列数据，且数据不同，就不能这样做了，建议根据数据特征，建立模板，批量处理即可。

用代码可以完成的。

看你途中的V结尾的两行是8位的，是不小心粘贴的时候都打上了V字符吧。

如果自动提取左边7位数，剩余的数显示在下一列好操作，但如果剩余的数显示在下一行有点难度。

图片与您描述看不出相关性，请明确模拟数据和结果。

~

---

#牟露苇# excel 怎么批量读取数字 -
(17260849120)： B1输入公式=lookup(9e+307,--right(a1,column(a:j)) 公式下拉

#牟露苇# EXCEL 2010 怎样自动提取文本中数字到一指定单元格 -
(17260849120)： 如下图示例,提取A列单元格中的数字: 公式=MAX(IFERROR(--MID(A2,ROW($1:$20),COLUMN(A:O)),)),数组公式,三键结束. 公式解释: ①mid函数为:分别从第1.2.3……位置开始提取1.2.3……个字符,前边加了两个减号,这样提取出来的字符就会转变为数字,非数字部分就是错误值; ②用iferror函数将错误值变为0,这样结果就成了包含各个数字与0的内存数组; ③最后用max函数计算内存数组中的最大值,也就是原单元格内包含的最长数字串.

#牟露苇# EXCEL数据批量提取和替换 -
(17260849120)： 假设两张表都是A\B列,在sheet1 B咧输入=vlookup(A1,SHEET2!A:B,2,0),公式下拉就实现了

#牟露苇# 如何在excel中批量提取数据 -
(17260849120)： https://jingyan.baidu.com/article/d7130635dd596913fcf47541.html

#牟露苇# excel中在怎么自动提取数据 -
(17260849120)： 数据菜单获取外部数据 自网站 输入网站的地址 导入 属性设置刷新时间

#牟露苇# excel批量复制插入数据 -
(17260849120)： 不用宏,你只要把这200数据全部复制,粘贴20次(不管顺序,就只管往下粘贴),然后选择某列,点工具栏里的数据-排序,这样一样的数据必定是在一起的.如此这般就完成了每条20次复制.

#牟露苇# 怎么实现EXCEL自动提取网站中的数据,并将数据进行累计向下增加保存 -
(17260849120)： Excel界面操作:数据——导入外部数据——新建Web查询:在出现的界面地址栏输入网址,然后选择需要更新的数据范围——导入——选择数据放的单元格(必要时修改属性,如刷新频率等)——确定.这样当网页数据变化时,Excel表格的数据就会同样改变. 如果非要用VBA,用录制宏稍作修改即可.

#牟露苇# excel 在自动提取数据 -
(17260849120)： 你每行只有一个数字,用公式 =SUM(B2:AB2)即可,如图:

#牟露苇# excel里面能不能快速提取数字 -
(17260849120)： 方法如下:1.从A列中提取数字到B列对应的单元格中:2.Alt+F11,插入模块,并输入如下代码 代码注释已给出:3.关闭VBE界面,返回Excel,输入带自定义函数的公式如下:4.下拉填充得到结果如下:

#牟露苇# excel怎么样自动导入数据 -
(17260849120)： 按Alt+F11进入VBA编辑复器,新建模块输入下面代码: Sub Macro1() Dim i As Integer, A As Integer A = Sheets(＂sheet2＂).Cells(65536, 1).End(3).Row If Sheets(＂sheet2＂).Cells(1, 1) <> ＂＂ Then A = A + 1 For i = 1 To 4 Sheets(＂sheet2...