Tag: 合并

当我合并工作簿时数据validation停止工作: 我使用视觉基础将8个工作簿合并在一起; 但是，当我这样做，我的数据validation停止工作，除了新的工作簿的第一页。有谁知道为什么这可能发生，我能做些什么来解决它？是否有可能合并工作簿，而不使用视觉基础，可能会保持数据validation？非常感谢你的帮助！

Excel的VBAmacros执行使用DDE打开数据源的邮件合并: 我想使用macros来执行从同一个Excel工作簿运行的邮件合并。我需要使用DDE作为数据源，因为我想保持格式。但是，这个macros运行永远终于冻结了我的屏幕。我不知道macros中是否有问题。谢谢！ Sub RunMerge（） Dim wd As Object Dim wdocSource As Object Dim strWorkbookName As String On Error Resume Next Set wd = GetObject(, "Word.Application") If wd Is Nothing Then Set wd = CreateObject("Word.Application") End If On Error GoTo 0 Set wdocSource = wd.Documents.Open("P:\trial.docx") strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name wdocSource.Mailmerge.MainDocumentType = […]

如何在公式中使用variables？: 我怎样才能合并不同的excel文件（不同的文件名和值内的值）在一个excel文件相同的格式由variables是工作簿的名称？我不能更改括号之间的名称，例如='[P2106.xlsm]management samenvatting'!B2我想p2106作为一个variables ，它是工作簿的名称我已经尝试过把公式='[ & variable(cell) &xlsm]management samenvatting'!B2部分，然后像='[ & variable(cell) &xlsm]management samenvatting'!B2 ，但是这会给单元格名称返回公式给出的值。当我然后复制公式在Word中，并在Excel中返回公式的值出现。如果有人能够帮助我，我不知道该怎么办。

我怎样才能合并多个单元格，而不会丢失文本数据，而不使用公式？: 从每天收到的电子邮件中导入数据时，我必须通过并清理一个列，其中有一组行，如下面所示。我想知道的是如何将列B的数据合并到第1行，以便我可以删除现在的空行2和3.我已经看到了连接等公式，但是这需要保留数据。只要我清理这些数据，它将被移动到另一张纸上。感谢您的帮助。 |——–A———|———B——–|——–C———| 1 Important Data | Important Data | Important Data | |——————|——————|——————| 2 Empty Cell | Empty Cell | Empty Cell | |——————|——————|——————| 3 Empty Cell | Important Data | Empty Cell | |——————|——————|——————|

用合并单元格对行进行sorting的自动化: 通常在使用excel的时候我尽量避免使用合并的单元格，但是我们从pipe理软件中得到了一些生成的表格，在search后，我发现最简单的过程是非合并sorting，然后再次合并，但是对于表格的header和sheet number of sheets变得单调，已知融合的单元格（I + J，M + N）和表格开始在第11行所以plage被设置，所以有一个macros可以自动化的过程？编辑：我调整了unmerge代码，然后合并部分，但需要进行sorting，并有一个比这更干净的代码 Sub Merge_fused() '~~> unmerged range Dim MyRange As Range Set MyRange = Range("H11:X56") '~~> merged columns Dim IRange As Range Set IRange = Range("I11:J56") Dim MRange As Range Set MRange = Range("M11:N56") Dim VRange As Range Set VRange = Range("V11:W56") On Error Resume Next […]

合并与列A相关的单元格组: 我一直在试图弄清楚这一点。我需要从这里走出去： Column A Column B Thing 1 1a.jpg 1b.jpg 1c.jpg 1d.jpg Thing 2 2a.jpg 2b.jpg 2c.jpg Thing 3 3a.jpg 3b.jpg 3c.jpg 3d.jpg 3e.jpg 3f.jpg 对此： Column A Column B Thing 1 1a.jpg;1b.jpg;1c.jpg;1d.jpg Thing 2 2a.jpg;2b.jpg;2c.jpg 等等我希望你们中有一个才华横溢的人可以帮助我！我正在使用Office 2003，但可以访问其他版本。

将dynamic范围合并到一个Range Excel或VBA中: 我目前正在尝试将两个范围合并成一个范围。我的范围是dynamic的，因为它们基于date而变化。例如，假设我想组合的两个范围是A3：A10和另一个C7：C12。每天刷新并移动索引1 …所以新的范围是A4：A11和C8：C13。我想把这两个区域合并成一个不同的列。我假设这将不得不在VBA实施…但是，我一直运气不大。我有值表明我想在我的工作表中做我的范围的行号。我试过制作VBAmacros，但我一直没有运气。我一直得到9（我想要的范围的第一期）作为我的结果，而不是一个范围，但我想使用该function打印整个组合的范围。我也想过使用Sub，但我不是很有经验的使用Sub。这是我迄今为止…请让我知道任何build议或提示。 Function FiveYTwoY() Worksheets("India Data").Activate index5_90 = Cells(10, 2).Value '5Y 90 day index index5_yes = Cells(9, 2).Value '5Y yesterday index index2_90 = Cells(7, 2).Value '2Y 90 day index index2_yes = Cells(6, 2).Value '2Y yesterday index Dim range5 As Range Set range5 = Range(Cells(index5_90, 20), […]

AutoFit Row Height在合并的单元格上手动运行时工作，但不在VB中: 我能手动自动调整行高的单元格有一个索引/匹配引用合并的单元格，但是当我使用一个macros如下所示，它将清除我自动拟合的单元格中的所有值，并设置我的合并字段值等于#value。这是我在“采购”列的工作表1中使用的macros： Sub AutofitMerged() Range("Sheet1[Purchases]").Select Selection.Rows.AutoFit End Sub 这里是我在合并采购列上的工作表2中使用的函数合并单元格与公共ID是可见的（我不希望过滤的值被合并）。 Function JoinAll(ByVal BaseValue, ByRef rng As Range, ByVal delim As String) Application.Volatile For Each a In rng If a = BaseValue And a.EntireRow.Hidden = False Then JoinAll = JoinAll & IIf(JoinAll = "", "", delim) & a(1, 6) End If Next a End Function 在单元格我自动拟合，我使用索引/匹配从第二个工作表中获取合并的值。第二个工作表是包含合并字段的工作表。 […]

当声明一个范围（从合并的单元格获取值）: 我试图从合并单元格（这是在一个.find gcell结果的偏移量）通过一个循环遍历行（并在另一张表中查找特定值）的循环获取值。如果代码我们正在寻找的细胞被合并，并执行以下操作： -Unmerges – 通过使用.Address获取合并单元格的极限 – 查看包含在这些单元格中的值 – 将值重写在这一点上，它不工作，我相信因为variables格式为.address给出一个string和属性rows.value和.MergeArea需要一个范围我的问题是，我如何从一个地址string更改为范围？也许这样我可以解决这个问题。如果你有其他的信号，我会很乐意听的。非常感谢你。码：（循环代码不会显示，因为它工作良好） lineasemergidasCont = gCell.Offset(, 4).MergeArea.Rows.count emergidainicio = gCell.Offset(, 4).Address emergidafinal = gCell.Offset(lineasemergidasCont, 4).Address goes well until here——-> Range(emergidainicio, emergidafinal).MergeArea.UnMerge filainicio = emergidainicio.Rows.Value filafinal = emergidafinal.Rows.Value For p = filainicio To filafinal If .Cells(p, 10).Value <> "" Then .Cells(p, 10).Value = datoemergido […]

合并连续单元格在Excel中具有相同值的列: 我有一些数据要写入Excel工作表。我已经完成了这一部分。现在我想第一列的连续单元格具有相同的值来合并。我不知道如何通过编码来合并单元格。我使用apache-poi 以下是我的代码。 HSSFWorkbook wb = new HSSFWorkbook(); String fromAddress,toAddress; HSSFSheet sheet = wb.createSheet("Report 1"); SimpleDateFormat dateFormatter = new SimpleDateFormat("dd-MM-yyyy HH:mm:ss"); short dateFormat = wb.createDataFormat().getFormat("dd-MM-yyyy HH:mm:ss"); SimpleDateFormat dateFormatter1 = new SimpleDateFormat("dd/MM/yyyy-HH:mm:ss"); HSSFRow row = sheet.createRow(0); HSSFCell cell = row.createCell(0); cell.setCellStyle(headerCellStyle); cell.setCellValue(new HSSFRichTextString("Proposal No.")); cell = row.createCell(1); cell.setCellStyle(headerCellStyle); cell.setCellValue(new HSSFRichTextString("Equipment Name")); cell = […]