当前位置：文江博客话题详情

如何保留每个单元格中合并单元格的值？

发布于 2024-11-16 17:40:13 字数 79 浏览 3 评论 0原文

我创建了一个包含合并单元格的工作表，但合并单元格的值仅存储在第一个单元格中。无论如何，为了在每个单元格中保持相同的值，我使用的公式需要它。谢谢！

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

万水千山粽是情ミ 2024-11-23 17:40:13

在 Excel 2003 中，此宏执行以下操作：

Public Sub UnmergeAndFill()
    With Selection
        If .MergeCells Then
            .MergeCells = False
            Selection.Cells(1, 1).Copy
            ActiveSheet.Paste 'Or PasteSpecial xlPasteFormulasAndNumberFormats
        End If
    End With
End Sub

通过按 Alt-F11、Ctrl-R、菜单 Insert/Module 创建宏

，粘贴代码;
或者：Alt-F8，输入新名称（例如UnmergeAndFill），单击Make或创建（？不知道英文按钮文本）

按 Alt-F8 调用宏，选择它，运行。或者将其映射到一个键

In Excel 2003 this macro does the job:

Public Sub UnmergeAndFill()
    With Selection
        If .MergeCells Then
            .MergeCells = False
            Selection.Cells(1, 1).Copy
            ActiveSheet.Paste 'Or PasteSpecial xlPasteFormulasAndNumberFormats
        End If
    End With
End Sub

Create the macro by

pressing Alt-F11, Ctrl-R, menu Insert/Module, paste the code;
alternatively: Alt-F8, type a new name (UnmergeAndFill, e.g.), click Make or Create (? don't know the English button text)

Invoke the Macro by pressing Alt-F8, select it, Run. Alternatively map it to a key

回复收藏 0 原文

谈下烟灰 2024-11-23 17:40:13

您可以使用自定义 VBA 函数来直接给出合并单元格的值，无论您选择哪一个。在这种情况下，没有必要重复这些值。

切换到 VBA 视图 (Alt-F11)
通过 Insert > 创建新模块模块
在您的项目中，浏览到新模块（您可能希望通过资源管理器下方的 (name) 属性为其指定一个新名称）
在模块中复制以下代码（在 ThisWorkbook 中粘贴代码不起作用）

代码：

Option Explicit

Function GetMergedValue(location As Range)
    If location.MergeCells = True Then
        GetMergedValue = location.MergeArea(1, 1)
    Else
        GetMergedValue = location
    End If
End Function

您现在可以在 Excel 代码中使用公式

：

=GetMergedValue(A1)

其中 A1 是合并单元格的一部分。

You could use a custom VBA function that gives directly the value of the merged cell, no matter which one you select. In that case it is not necessary to duplicate the values.

Switch to VBA view (Alt-F11)
Create a new module via Insert > Module
In your project, browse to the new module (you might want to give it a new name via the (name) property just under the explorer)
Copy the following code in the module (pasting the code in ThisWorkbook will not work)

Code:

Option Explicit

Function GetMergedValue(location As Range)
    If location.MergeCells = True Then
        GetMergedValue = location.MergeArea(1, 1)
    Else
        GetMergedValue = location
    End If
End Function

You can now use the formula in excel

Code:

=GetMergedValue(A1)

Where A1 is a part of a merged cell.

回复收藏 0 原文

冷情 2024-11-23 17:40:13

我知道这是一个相当老的问题，但这是我在寻找答案时遇到的第一个地方，而接受的答案根本没有帮助。然而，我确实在 MrExcel 上发现了一个很好的答案，我认为值得将其放在这个线程上，以便其他人在谷歌上搜索答案：
http://www.mrexcel.com/forum/general-excel-discussion-other-questions/487941-data-multiple-cells-within-merged-cell-possible.html

保存查找链接，答案非常简单；如果您使用 Excel 格式刷而不是合并单元格来合并单元格，它会保留合并单元格“下方”的数据/公式。您只需要在其他地方以正确的格式创建临时合并的单元格块，以用作格式刷的模板。您可以稍后删除它们。不过，需要注意的一件事是，像这样的“隐藏”数据对于粗心的人来说可能是一个陷阱，因为编辑可见单元格不会更改不可见的单元格。

回复收藏 0 原文

白日梦 2024-11-23 17:40:13

您可以创建一个新列（或行）并在第一个单元格中应用此公式并将其向下拖动：

我想在 A 列中您已合并单元格（例如 A1:A3 和 A5:A8 已合并）。

在 A 列之前插入一列
在 A1 中键入：
<前><代码>=B1
将以下公式复制到 A2 中：
<预置><代码>=IF(B2="",A1,B2)
向下拖动在 A2 中输入的公式

在公式中使用新创建的列，使用后即可可以隐藏它。

you can make a new column (or row) and apply this formula in first cell and drag it down:

I suppose in column A you have merged cells (for example A1:A3 & A5:A8 are merged).

Insert a column before column A
In A1 type:
```
=B1
```
Copy the formula below in A2 :
```
=IF(B2="",A1,B2)
```
Drag down the formula u typed in A2

In your formulas use the newly created column and after use you can hide it.

回复收藏 0 原文

要走就滚别墨迹 2024-11-23 17:40:13

你不能将实际值存储在其他地方吗？而不是合并单元格？是的，使用公式显示合并单元格上的值。

回复收藏 0 原文

半暖夏伤 2024-11-23 17:40:13

假设“A”列已合并单元格 - 将其放入 B1 中并复制它以填充该列的其余部分：

=IF(ISBLANK(A1);OFFSET(B1;-1;0);A1)

它检查左侧的单元格是否有值，如果有，则返回其值，如果没有，则采用该值从上单元。

请注意，它不适用于空单元格。首先用一些独特的东西填充“A”列中的空单元格，例如“（空）”，并在填充“B”列后将“A”和“B”中的空单元格替换回空。

Assume column "A" has merged cells - put this in B1 and copy it to fill the rest of the column:

=IF(ISBLANK(A1);OFFSET(B1;-1;0);A1)

It checks if the cell to the left has a value if it has it returns its value, if not, it takes the value from the upper cell.

Note that it doesn't work for the empty cells. First fill empty cells in column "A" with something unique, like "(empty)" and replace it back with emptiness both in "A" and "B" after filling column "B".

回复收藏 0 原文

冰火雁神 2024-11-23 17:40:13

我改进了 sehe 的宏，可以根据您的选择执行尽可能多的合并单元格。

代码：

Public Sub UnmergeAndFillMultiple()
    Dim w As Range, m As Range, n As Range
    For Each w In Selection.Cells
        If w.MergeCells Then
            Set n = w.MergeArea.Cells(1, 1)
            Set m = w.MergeArea
            w.MergeCells = False
            n.Copy
            m.PasteSpecial
        End If
    Next
End Sub

I improved on sehe's macro to do as many merged cells as you select.

Code:

Public Sub UnmergeAndFillMultiple()
    Dim w As Range, m As Range, n As Range
    For Each w In Selection.Cells
        If w.MergeCells Then
            Set n = w.MergeArea.Cells(1, 1)
            Set m = w.MergeArea
            w.MergeCells = False
            n.Copy
            m.PasteSpecial
        End If
    Next
End Sub

回复收藏 0 原文

许仙没带伞 2024-11-23 17:40:13

假设 A13 到 A52 已合并。
a = Cells(13,1) 将返回一个值，但是
a = Cells(14,1) 不会“空”
修复：
a = Cells(X,1).MergeArea(1, 1) '如果 x=13 到 52 将在 A13 中返回值。
不知道我是如何让它发挥作用的，但它确实有效。

回复收藏 0 原文

羁〃客ぐ 2024-11-23 17:40:13

 Dim rowcnt As Long, i As Long
    rowcnt = Cells(Rows.Count, "A").End(xlUp).Row
    For i = rowcnt To 3 Step -1
        With Cells(i, 1)
            If .Value = Cells(i - 1, 1).Value Then
                .Font.ColorIndex = 9
            End If
        End With
    Next i

 Dim rowcnt As Long, i As Long
    rowcnt = Cells(Rows.Count, "A").End(xlUp).Row
    For i = rowcnt To 3 Step -1
        With Cells(i, 1)
            If .Value = Cells(i - 1, 1).Value Then
                .Font.ColorIndex = 9
            End If
        End With
    Next i

回复收藏 0 原文

~没有更多了~