excel表格N行内容,每8行转换为8列,请高手帮忙!!!

黄色区域就是想达到的效果在线等,实在着急,求各位大侠帮忙~~~... 黄色区域就是想达到的效果
在线等,实在着急,求各位大侠帮忙~~~
展开
 我来答
天雨下凡
2014-10-10 · 知道合伙人教育行家
天雨下凡
知道合伙人教育行家
采纳数:17564 获赞数:65157
爱电脑、爱数学、爱音乐; 熟悉VB、C/C++、JAVA; EXCEL与VBA有所研究…… 数学,一些会,一些被忘却……

向TA提问 私信TA
展开全部

用VBA,步骤如下:

ALT+F11,输入如下代码:

Sub x()
    Dim ans As Long
    Dim i As Integer, j As Long
    ans = Val(InputBox("A列有多少行数据?"))
    For j = 1 To ans / 8
        For i = 2 To 9
            Cells(j, i) = Cells(8 * j + i - 9, 1)
        Next i
    Next j
End Sub

然后点击下图中红圈处按钮运行,运行后首先会要求你输入数据的行数,比如8、16、24、32等,点击确定就会出结果了。对于你的问题,行数肯定是8的倍数。

百事牛
2024-10-28 广告
针对Excel表格的密码解锁问题,深圳奥凯丰科技有限公司提供专业的软件解决方案,旨在帮助用户快速、安全地恢复或移除表格中的保护密码。我们的软件采用先进的密码恢复技术,能够有效应对多种加密类型,包括工作簿打开密码、工作表保护密码等。用户只需简... 点击进入详情页
本回答由百事牛提供
knifefox
2014-10-10 · TA获得超过1.6万个赞
知道大有可为答主
回答量:1329
采纳率:76%
帮助的人:709万
展开全部
B1=INDEX($A:$A,(ROW()-1)*8+COLUMN()-1)
右拉 下拉
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2014-10-10
展开全部
你把表格发送到我的邮箱,hnlhxx@126.com,我看看能不能帮你做下。
追问
发过去了,麻烦高手了
追答
已经做好发给你了,你看看吧。在你的邮箱里。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式