excel表格中，我用一组很长的数据，要使用它们必须每个数据中间相隔5个单元格，有啥办法可以解决吗？？？

我在表格1中做了中间空5个格的数字完了自动筛选，空白隐藏起来了，在把表格2里的数据粘贴到表格1中的可见单元格上，就是用表格2中的数据替换表格1中的数据怎么实现呢？

如果“表格1”和“表格2”数据都是从A2开始，那么“表格1”的A2单元格与”表格2“的A2单元格对应，“表格1”的A3、A4、A5、A6、A7为空，“表格1"的A8单元格与”表格2“的A3单元格对应。如果是这样的话，”表格1“A2的公式可以设为
=IF((ROW()-2)/6*5=INT((ROW()-2)/6*5),INDIRECT("表格2!A"&ROW()-(ROW()-2)/6*5),"")
下拉即可

如果不想空白区域是不可计算的""，公式可以设为

=IF((ROW()-2)/6*5=INT((ROW()-2)/6*5),INDIRECT("表格2!A"&ROW()-(ROW()-2)/6*5),)
下拉即可

选中虚线内的单元格，点，如选中b1：d1单元格，点后，输入数据，效果如图：

帮你写了一下代码， 将代码放在你要插入列的sheet页的VBE中，运行 InsertColumns 方法,然后复制你的需要的区域，在另一个表中进行选择性黏贴~ Sub InsertColumns()     Dim intCol As Integer     Dim intMaxCols As Integer: intMaxCols = Range("XFD1").End(xlToLeft).Column * 5     Application.ScreenUpdating = False     For intCol = 2 To intMaxCols Step 6         Columns(GetAddress(intCol)).Select         Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove     Next intCol     Application.ScreenUpdating = True     Range("A1").Select End Sub Function ConvertToLetter(iCol As Integer) As String    Dim iAlpha As Integer    Dim iRemainder As Integer    iAlpha = Int(iCol / 27)    iRemainder = iCol - (iAlpha * 26)    If iAlpha > 0 Then       ConvertToLetter = Chr(iAlpha + 64)    End If    If iRemainder > 0 Then       ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)    End If End Function Function GetAddress(iCol As Integer) As String     GetAddress = ConvertToLetter(iCol) & ":" & ConvertToLetter(iCol + 4) End Function

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息