manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 46|回复: 2
打印 上一主题 下一主题

[已解决] 选中列后批量合并后并填充原值

[复制链接]
跳转到指定楼层
1楼
发表于 2020-12-16 09:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 yewei113 于 2020-12-16 14:44 编辑

见附件   谢谢大佬
说明:选中a列后,执行vba代码后,原位置变成f到h列的效果。因为数据列很多,只对选中的列进行取消合并后并填充其他列不变。不要固定处理a列,是选中哪列处理哪列,谢谢大佬。

选中列后批量合并后并填充原值.zip

8.76 KB, 下载次数: 1

分享到:  QQ好友和群QQ好友和群
收藏收藏
2楼
发表于 2020-12-16 11:01 | 只看该作者
Sub test()
    Dim A, x, i, j, k

    Application.ScreenUpdating = False
    Sheets(1).Select
    x = InputBox("输入列号:", , "A")
    x = Cells(1, x).Column
    i = Cells(Rows.Count, 2).End(xlUp).Row
    A = Range(Cells(1, x), Cells(i, x))

    For i = 3 To UBound(A)
        If Cells(i, x).MergeArea.Count > 1 Then
            If A(i, 1) <> "" Then
                k = i + Cells(i, x).MergeArea.Count - 1
                For j = i + 1 To k
                    A(j, 1) = A(i, 1)
                Next
                i = k
            End If
        End If
    Next

    Columns(x).UnMerge
    Cells(1, x).Resize(i - 1) = A
End Sub


选中列后批量合并后并填充原值2.rar (15.8 KB, 下载次数: 1)

评分

参与人数 1学分 +3 收起 理由
yewei113 + 3

查看全部评分

3楼
 楼主| 发表于 2020-12-16 14:43 | 只看该作者
谢谢,高手
您需要登录后才可以回帖 登录 | 注册 发新帖

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2020-12-17 12:46 , Processed in 0.109200 second(s), 5 queries , Gzip On, Redis On.

Powered by X3.4

© 2001-2017

快速回复 返回顶部 返回列表