刚写的一个合并纵向相同的行,常用

关注

原创最新推荐文章于 2026-05-31 10:40:32 发布 1.5k 阅读 AI 写同款· GEO 优化 ›

Excel技巧：合并行头相同的行（整合汇总行的次列值） Excel多行两列变多行多列的方法前提条件装有Excel2016，开启“开发工具”选项卡。步骤1：编写并执行VBA代码打开工作簿，右键工作表名称→选择“查看代码”→将下列代码复制进去并保存→点击“运行子过程/用户窗体” Sub cc() Dim arr, d, i, j, k, t, brr(), hd Set d = CreateObject("scripting.dictionary") Set hd = [a1:b1] arr = [a1].CurrentRegion For ... 阅读详情

Dim floatxishu
For i = 0 to ubound(arr_xishu,2)
        Response.Write " <tr>" & vbCrLf
        If floatxishu <> CDbl(arr_xishu(0,i)) Then
                floatxishu = CDbl(arr_xishu(0,i))
                Response.Write "    <td id='a"&arr_xishu(0,i)&"' align=""center"">"&arr_xishu(0,i)&"</td>" & vbCrLf
        Else
                Response.Write "<script language=javascript>" & vbCrLf
                Response.Write "a"& arr_xishu(0,i) &".rowSpan=a"& arr_xishu(0,i) &".rowSpan+1;" & vbCrLf
                Response.Write "</script>" & vbCrLf
        End If
        Response.Write "    <td>"&arr_xishu(1,i)&"</td>" & vbCrLf
        Response.Write "    <td>"&arr_xishu(2,i)&"</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
Next