问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

请问,excel中怎么把一列数据间隔插入到另一列数据中

发布网友 发布时间:2022-09-01 19:52

我来回答

1个回答

热心网友 时间:2023-11-12 03:17

你好,楼主!这个也可以使用VBA程序进行处理,几行代码就搞定。当然,为了一个小小的问题而采用VBA程序处理,似乎有点“杀鸡焉用宰牛刀”,不过学学也好。

(1)VBA程序代码如下所示:

Sub Intset_i()
Dim i1, i2
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表Sheet1
i2 = 1   'i2初始值

For i1 = 2 To 1000  '从第2行到1000行
 If i1 Mod 2 = 0 And mysheet1.Cells(i1, 1) <> "" And mysheet1.Cells(i1 + 1, 1) = "" Then
 '如果是偶数行且此单元格不是空白且下一个单元格是空白,则
  i2 = (mysheet1.Cells(i1 + 1, 1).Row - 3) / 2 + 2   '获取B列对应数值所在的位置
  mysheet1.Cells(i1 + 1, 1) = mysheet1.Cells(i2, 2)  '把B列相应的数值插入A列的空白单元格中
 End If
Next

End Sub

(2)程序的运行结果如下截图所示:

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
空调调到二十二度风量三档 warframe悟空mod介绍_warframe悟空mod是什么 warframe导引技能是什么 自然界中哪些硅酸盐矿物占据地壳质量的95%? 包米芯八万四千斤稻糠一万斤麦夫七千二百斤,白灰用多少为好,做平菇用... 平菇培养料,包米芯稻糠麸子豆粕其中包米芯36吨其它应该放多少_百度知 ... 做平菇培养料包米芯36吨稻糠,麸子豆粨各放多少适合,请高手指点_百度知 ... 我老公从来不会主动联系我,这是为什么? 老公两个月不联系我,什么情况? 老公为什么不主动和我联系了? 跟刚买的狗狗大概多久能培养感情 陪伴狗一周相当于久有感情吗 狗养多久才对人有感情 你觉得刘伯温是个怎样的人? 历史上的刘伯温是怎样的一个人 土瓜放在冰箱冷藏里能保存多久 自来水改造我家没同意自来水公司就强制改造合法吗 自来水改造需要住户交钱吗? 博美犬能记住主人多久? 怎么看博美犬爱不爱你这个主人? 博美爱你的表现是什么? iPhone5美版怎样查询有锁无锁和版本? 美版iphone5怎么辨别无锁还是有锁 哪位知道胭脂乱风月栖情说的全集! 求 言情小说《胭脂乱 风月栖情》txt 全本 书荒(穿越或异界) 《和月折梨花》和《胭脂乱:风月栖情》是同一本书吗? 红袖添香的《胭脂乱之风月栖情》第二部呢?? 求助,网上下了安卓模拟器,怎么root?住宅梦物语 寂月皎皎的《胭脂乱:风月栖情》之后,是否有续集 王安石的主要历史事件 劝删我有红眼病是什么梗? 有谁用过菲士康的红绿色盲片或者callamatch色盲片?哪个效果好?_百度... 红绿色盲片真的能带着考驾照吗 色盲片对什么色光起敏感反应 补色盲如何清洗 有没有便宜点的callamatch色盲片卖?我是个学生没有很多钱,哪里有... 排水斜三通的公式 手机可以填报志愿吗 中考填报志愿要注意什么 林想到什么成语 武林外传里的绿林大盗在什么地方??怎么只看到密林大盗啊???_百度知... 爸爸哥哥怎么称呼 4岁的孩子可以学溜冰吗 四周岁的小女孩可以学轮滑吗 为什么说孩子学习轮滑的最佳年龄段是4 5岁的孩子适合学轮滑了吗 4岁学轮滑会不会早 孩子四岁没接触过轮滑,穿米高s7学习可以吗 什么系统必须部署在网络边界- 问一问 梦见被子淋雨