批量选中单元格

x-xx-xx

function Macro1() {


    var 单元格区域 = Selection
    var 单元格个数 = 单元格区域.Count

    var 字符串 = ""
    var 第几个 = 0

    for (var 第几行 = 1; 第几行 < 单元格个数 + 1; 第几行++) {

        var 单元格 = 单元格区域.Item(第几行)

        单元格.Select()

        var 值 = 单元格.Value2;
        var 单元格地址 = 单元格.Address(0, 0)

        if (值 != null) {
            第几个 = 第几个 + 1

            if (第几个 == 1) {
                字符串 = 单元格地址
            } else {
                字符串 = 字符串 + "," + 单元格地址

            }
        }

    }

    Range(字符串).Select()

}

imnnoii

我给你补充一下。用这种方法得判断你那个字符得长度（不准确）超过了就选不上了

x-xx-xx

imnnoii 发表于 2022-5-31 15:42
我给你补充一下。用这种方法得判断你那个字符得长度（不准确）超过了就选不上了

嗯.....................................