物联网软件开发公司 VBA将归拢单位格拆分红单个单位格并每个单位格放入交流实践

发布日期：2024-09-28 05:56    点击次数：59

在Excel中，如若你念念要用VBA将一个归拢的单位格拆分红单个单位格，何况每个单位格皆填充交流的实践，比如下图例子：

图片

Sub 指定归拢单位格拆分红单个单位格并放入交流实践()
Set Z = Cells(2, 1)  '诞生要进行拆分的归拢单位格区域（使用归拢单位格区域中的任一单位格即可）
Dim rng As Range        '诞生变量为单位格对象
Cell_value = Z.MergeArea.Cells(1, 1).Value          '获得归拢单位格的值
Set A = Range(Z.MergeArea.Address)   '复返归拢区域的限制地址，将其设定为单位格区域对象
Z.MergeCells = False  ' 拆分归拢单位格
For Each rng In A   '遍历原单位格区域的每个单位格
    rng = Cell_value
Next
End Sub

如若该列需要拆分多个单位格，比如下图例子：

图片

则不错优化代码为：

Sub 指定某列扫数归拢单位格拆分红单个单位格并放入交流实践()
Dim cell As Range        '诞生变量为单位格对象
col = 1     '设定归拢单位格场合的列
For Row = 1 To 10   '从第1行到第10行
  	If Cells(Row, col).MergeCells = True Then   '检测是否为归拢单位格
        Cell_value = Cells(Row, col).MergeArea.Cells(1, 1).Value           '获得归拢单位格的值（原始实践）
        Set A = Range(Cells(Row, col).MergeArea.Address)   '复返归拢区域的限制地址，将其设定为单位格区域对象
        Cells(Row, col).MergeCells = False  ' 拆分归拢单位格
        For Each cell In A      '遍历原单位格区域的每个单位格
            cell = Cell_value       '放入归拢单位格的原始实践
        Next
    End If
Next

如若通盘表内的归拢单位格皆需要拆分并填充，则不错这么：

Sub 表中扫数归拢单位格拆分红单个单位格并放入交流实践()
Dim rng As Range        '诞生变量为单位格对象
For Each cell In ActiveSheet.UsedRange   '遍历扫数算作单位格
    If cell.MergeCells = True Then
        Cell_value = cell.MergeArea.Cells(1, 1).Value           '获得归拢单位格的值（原始实践）
        Set A = Range(cell.MergeArea.Address)   '复返归拢区域的限制地址，将其设定为单位格区域对象
        cell.MergeCells = False  ' 拆分归拢单位格
        For Each rng In A   '遍历原单位格区域的每个单位格
            rng = Cell_value       '放入归拢单位格的原始实践
        Next
    End If
Next
End Sub

关系著作：

vba归拢单位格的归拢区域MergeArea属性

VBA归拢单位格Merge的用法

VBA获得归拢单位格的值

一区号码分析：最近9期该区开出了46个奖号，表现与理论相当，号码012路比为18：14：14，0路号码表现活跃，1、2路号码表现较冷，物联网软件开发公司最近4期该区出现了20个奖号，号码012路比为6：6：8，上期该区表现较冷，出号2个，其中包含0路号码，1路号码：10和2路号码：14，本期注意该区0路号码：06和1路号码：01、10、13，防2路号码全部轮空。

福彩快乐8第2024175期(上周三)开奖回顾：07 09 12 15 17 19 32 33 40 47 48 49 55 58 62 65 66 69 70 73，其中奖号遗漏总值为60，冷温热码比为3：6：11。

vba判断归拢单位格启动算作止行

以上实践对您有匡助不错共享或转藏物联网软件开发公司，幸免以后找不到。念念要了解更多VBA关系常识，宽饶到http://moqingyan.360doc.com我的个东谈主藏书楼检察。

• VBA
• 物联网软件开发公司
• 单位
• 归拢
• 格拆

上一篇：开发一个手机物联网软件需要多少钱 邀约女东说念主的4个手段

下一篇：没有了