Tag: 单元格

从一个单元格复制到下面的新评论，然后再次进行: 我已经看了所有，只发现一些似乎不能一起工作的片段。使用VBA，我试图将单元格中的信息复制到它下面的单元格的注释中; 然后我想要移动到下一个单元格并重复10次。让桌子变得更加紧凑以便查看重要信息会更加容易，然后当您将鼠标hover在单元格上时，您会看到评论（提供了一条支持信息），这将非常有用。所以在第1行：我想复制A1到A2的注释中，然后对B，C，D，E等做同样的操作。以下是我到目前为止： Sub Comments() Dim c As Range, d As String For Each c In Selection If c <> "" Then d = d & c & Chr(10) Next Range("A2").Comment.Delete Range("A2").AddComment d End Sub 范围需要是dynamic的部分 – 从A1复制，并粘贴到A2的评论，然后重复，以便从B1复制到B2的评论等。我希望这是有道理的…

从单元格值构build单元格引用另一个文件: 我不确定这是否可能。我需要引用多个其他Excel文件中的单元格。为了简单起见，我可以在工作簿的Sheet1中使用以下string获取所需的数据： =SUM('C:\Folder\[Person''s Tracker.xls]April 2014'!$A$1:$A$54)" 它引用另一个工作簿来跟踪数据。但是，我想dynamic地使用另一个工作表的单元格引用来构build这个string： “C：\ Folder \”作为文本存储在Sheet 2单元格C5中。 “[Person's Tracker.xls]”存储为工作表2单元格D5中的文本。 “2014年4月”作为文本存储在工作表2单元格E5中。我尝试过CONCATENATE和INDIRECT各种组合，但总是以错误结束。有任何想法吗？

复制并粘贴多个单元格: 我正试图从一个工作簿复制和粘贴几个单元格到另一个。我正在尝试将源单元格放到一行中，并与其他工作簿一起循环，以复制和粘贴之前的单元格（因此lastrow语句）。我有的代码似乎没有工作，是严重低效的！正如你会注意到单元格不在一个整洁的范围内，可以很容易地复制。 See below: … lastrow2 = shtBatchwbkBGAsumm.Range("B65536").End(xlUp).Row + 1 shtWBc2.Unprotect Password:="QC" shtWBc2.Range("C4").Value = shtBatchwbkBGAsumm.Range("B" & lastrow2).Value shtWBc2.Range("C5").Value = shtBatchwbkBGAsumm.Range("C" & lastrow2).Value shtWBc2.Range("D10").Value = shtBatchwbkBGAsumm.Range("D" & lastrow2).Value shtWBc2.Range("G10").Value = shtBatchwbkBGAsumm.Range("E" & lastrow2).Value shtWBc2.Range("J10").Value = shtBatchwbkBGAsumm.Range("F" & lastrow2).Value shtWBc2.Range("M10").Value = shtBatchwbkBGAsumm.Range("G" & lastrow2).Value shtWBc2.Range("P10").Value = shtBatchwbkBGAsumm.Range("H" & lastrow2).Value shtWBc2.Range("S10").Value = shtBatchwbkBGAsumm.Range("I" & lastrow2).Value shtWBc2.Range("C14").Value […]

使用公式的Excel图表引用单元格: 我有一个图表（图表页面，不是embedded图表），我在Excel 2010中有一个标题。我想引用一个单元格，以便标题根据该单元格的值进行更改。假设这个单元格是A1。我看到论坛说你可以通过点击图表的标题链接到一个单元格，按“=”并点击引用的单元格。这个工作很好，直到我想在标题中提出一个公式。说A1 =“时间”，我把图表标题设置为=Sheet1!A1 。标题更新为：时间。但是如果我想使它更灵活，就像="It's about "&Sheet1!A1 ，我得到一个错误：您键入的公式包含错误。尝试以下方法之一：… [剪切] 标题字段是否受限于其input？有没有另一种方法来完成这个没有VBA？

为什么我的下标超出了vba的范围？: 我希望excel遍历列的每个单元格，对其执行操作，然后将结果复制到另一列。这是我的初始代码： For i = 2 To dataRows ' Cells(i, aStampCol) = Cells(i, stampCol) – stim1TimeStamp 'Next i 这个代码实际上工作，但运行速度非常慢，我看了另一个post ，他们说只是将列复制到一个数组中，操纵它，然后将其复制回列。所以我写了下面的代码： cellsAStamp = Range(Cells(2, stampCol), Cells(datarows, stampCol)) For i = 0 To datarows – 2 cellsAStamp(i) = cellsAStamp(i) – stim1TimeStamp Next i Range(Cells(2, aStampCol), Cells(endRow, aStampCol)) = cellsAStamp 问题是，一旦for循环启动，我得到一个“下标超出范围”的错误。我得到的印象是，CellsAsStamp没有正确存储数据，但我不完全知道如何解决这个问题，或者就此而言，问题是什么！我在下面粘贴了我的完整代码，以便查看我如何初始化variables： Sub WM() Dim col […]

更改另一个单元格的公式: 我是excel的新手。我正在使用Excel 2010.我的电子表格看起来像这样： 0 A B C D 1 X 10€ X: (sum of all incomes, made by A) 2 Y 20€ Y: (sum of all incomes, made by B) 3 Z 5€ Z: (sum of all incomes, made by C) 4 X 4€ 5 Z 6€ 我有一个收入和结果的清单，由3个不同的人收集/支付。我想格式化第一列：如果单元格的内容是“X”，那么这一行的收入就加到X的所有收入之和上，如果是Y，则加上Y的总和，Z就是一样的。像这样（对于A1）：“如果content = X，则将B1添加到D1;如果content = Y，则将B1添加到D2;如果content = […]

将文件名的前五个字符插入单元格: 我知道插入文件名的公式，但文件是例如54321 Cost Data ，我只需要插入54321 。是否可以插入一个单元格的文件名的前五个字符？

根据单元格值添加空白行数量: 由于大多数在这里寻求援助，我是新来的VBA，但我认为是没有办法解决我的问题与传统的公式，因此解释：我有几套materiel代码。从最小到最大sorting，它们对应的数据在列B到Y中。我需要的是在每个代码下面添加一个空白行，等于col中对应的值。 Z，下面是“之前”的例子 – Col. A —- Col. Z – 65504927 – 3 – 65504927 – 3 – 65504927 – 3 – 65505044 – 1 – 65505044 – 1 – 65505044 – 1 – 65505151 – 0 – 65505151 – 0 – 65505297 – 2 – 65505297 – 2 之后 – – Col. A […]

在函数中使用单元格X3进行查找: 嘿家伙我有一堆string在列中，我通过使用以下string获取最后一个string的行号： =MATCH(REPT("z",255),StaticData!G:G) 它给了我一个数字256，它在单元格X3。我正在使用查找，我想在单元格X3中指定此数字： =IFERROR(VLOOKUP(A2,Sheet1!$C$4:$D$256,2,0),"") 260现在我想放置X3，但它给我错误。如此： =IFERROR(VLOOKUP(A2,Sheet1!$C$4:$D$X3,2,0),"") 任何人都知道我可以做到这一点？谢谢！

我想在macros中改变单元格的文本颜色: 我有一个macros复制垂直列中的组单元格的最后单元格值，例如， Sub copy_down() Dim r As Range, rr As Range, N As Long N = Cells(Rows.Count, "A").End(xlUp).Row Set r = Range(Cells(1, "A"), Cells(N, "A")).SpecialCells(xlCellTypeBlanks) For Each rr In r rr.FillDown Next End Sub 编辑（增加了一个额外的行），这里是： Sub copy_down() Dim r As Range, rr As Range, N As Long N = Cells(Rows.Count, "A").End(xlUp).Row Set r = Range(Cells(1, "A"), […]