zoukankan      html  css  js  c++  java
  • 一个用来将Excel中同一个人的多行记录中的特定列合并到第一行的宏

    宏本身很简单,不过处理带链接的单元格,费了不少劲,主要是原来有个陋习,取单元格的值时,比较懒,没用cells(i,j).value,而是直接用cells(i,j),所以给添加链接时,因为最后一个参数使用了Cells(i,j),而不是Cells(i,j).value,导致类型不匹配报错.

    Sub MergeRow()
    Dim i, j, k As Integer
        Dim iStart As Integer
        iStart = 2
        For i = 3 To 65536
            If Cells(i, 3).Value = "" Then Exit For
            If Cells(i, 3).Value <> Cells(iStart, 3).Value Then
                iStart = i
            Else
                Cells(iStart, 55).Value = Cells(iStart, 55).Value + ";" + Cells(i, 55).Value
                Cells(iStart, 54).Value = Cells(iStart, 54).Value + ";" + Cells(i, 54).Value
                Cells(iStart, 50).Value = Cells(iStart, 50).Value + ";" + Cells(i, 50).Value
                For k = 57 To 100
                    If Cells(i, k) <> "" Then
                        For j = 57 To 100
                            If Cells(iStart, j) = "" Then
                                Cells(iStart, j).Hyperlinks.Add Cells(iStart, j), Cells(i, k).Hyperlinks(1).Address, "", "", Cells(i, k).Value
                                Exit For
                            End If
                        Next j
                    Else
                        Exit For
                    End If
                Next k
            End If
        Next i
        MsgBox "处理完毕"
    End Sub

  • 相关阅读:
    docker指令汇总
    springboot(八) 嵌入式Servlet容器自动配置原理和容器启动原理
    RabbitMQ 消息确认机制
    RabbitMQ 最常用的三大模式
    RabbitMQ 核心概念
    RabbitMQ 之简单队列
    Spring 详解(三)------- SpringMVC拦截器使用
    slf4j 搭配 log4j2 处理日志
    Spring 详解(二)------- AOP关键概念以及两种实现方式
    Spring 详解(一)------- AOP前序
  • 原文地址:https://www.cnblogs.com/techrich/p/1898900.html
Copyright © 2011-2022 走看看