迅速插入与上一行一样的50行

大家好，今天和大家分享”在excel表中迅速插入与上一行一样的50行，我为了让大家好学习，我就改为3行了，也就是在excel表中迅速插入与上一行一样的3行。下面我讲解3种方法，技巧法，函数法，vba法

一、技巧实现

1、动画操作

2、具体步骤

二、函数法实现

1、公式截图

=INDEX($A$1:$C$4,INT(ROW(A4)/4),COLUMN(A1))

3、公式解释

三、VBA法实现

1、动画效果

Option Explicit

Dim arr3, k

Sub test()

Dim x, y, z, arr2(), arr1

k = 0

arr1 = Range("A1").CurrentRegion

arr3 = Range("A1").CurrentRegion

ReDim arr2(1 To UBound(arr1) * 3, 1 To UBound(arr1, 2))

For x = 1 To UBound(arr1)

For z = 1 To 3

k = k + 1

For y = 1 To UBound(arr1, 2)

arr2(k, y) = arr1(x, y)

Next y

Next z

Next x

[A1].Resize(k, UBound(arr1, 2)) = arr2

End Sub

Sub 返原()

Range("A1").CurrentRegion.Clear

[A1].Resize(UBound(arr3), UBound(arr3, 2)) = arr3

End Sub

如果你是第一次读我写的文章，觉得文章好，请关注我们的公众号，你就可以天天收到这样的Excel文章分享。如果你是旧朋友，请帮我们分享到你的朋友圈，谢谢

最近新开班通知：

1、函数中级班，2017-6-26开新班，每周一，三，五晚上8点到10点上课，学费600元

2、vba编程初级开新班，2017-6-27，每周二、四，六晚上8点到10点上课，学费400元

290集函数案例视频 售价100元

包含函数数组、嵌套、加权、降维等讲解

525集Excel 视频 售价100元

包括基础技巧、函数、透视表，VBA。

在线网络开设的班级，常年招生

函数班、VBA班;数据透视表班

咨询电话18664243619，联系：曹明武

报名和购买视频：加微信18664243619

如果想购买“Excel职场手册：260招菜鸟变成达人”这本书的朋友，请点点击最下面的 “ 阅读原文 ”链接 返回搜狐，查看更多