![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
Excel怎么让列数据交叉填充到另一列,求各位大神帮忙,感激不尽,(最好有解析)!
6个回答
展开全部
更多追问追答
追问
1.中间有间隔的呢,图已经改,如要改间隔应改哪些数据。
2.第二个问题如果图中A列及C列分别在两个独立表中位置都在A列,该如何写公式?
展开全部
写代码可以实现
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
复杂的使用代码
会启用宏么?
戳我头像,一切都会有的。 所得取决于所付出的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是乱填还是有规律填呢?有要求吗?你可以在D列中D1填=A1然后下拉到D4在D5D6单元格填B1B2,然后选中D1到D6下拉填充就实现图中的交叉填充了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
公式不知道
可以用vba
Sub AA()
Dim i, k
For i = 1 To Range("a65536").End(xlUp).Row Step 4
For k = 1 To 2
N = Range("D65536").End(xlUp).Row
Range(Cells(i, k), Cells(i + 3, k)).Copy Cells(N + 1, "d")
Next
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2019-02-27 · 知道合伙人软件行家
关注
![](https://wyw-base.cdn.bcebos.com/pc-content/follow.gif)
展开全部
采用vba比较方便:
Sub testt()
Dim i, k
For i = 1 To Cells(rows.count,1).End(xlUp).Row Step 4
For k = 1 To 2
n= Cells(rows.count,4).End(xlUp).Row
Range(Cells(i, k), Cells(i + 3, k)).Copy Cells(n+ 1, "d")
Next
Next
End Sub
Sub testt()
Dim i, k
For i = 1 To Cells(rows.count,1).End(xlUp).Row Step 4
For k = 1 To 2
n= Cells(rows.count,4).End(xlUp).Row
Range(Cells(i, k), Cells(i + 3, k)).Copy Cells(n+ 1, "d")
Next
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |