Tag: 单元格

Excel VBA合并来自多行的数据: 我有一个非常大的XLS信息分布在多行，看起来像： TopName Name Mode Item1 Item2 Item3 Item4 —————————————————– Foo Name1 ModeX x() Foo Name2 ModeY x() Foo Name1 ModeX y() Foo Name1 ModeX y() Foo Name2 ModeY y() 我现在想要做的是将基于名称的数据合并到新的工作表或Excel文件。输出表应该看起来像这样 Name Mode Item1 Item2 Item3 Item4 ——————————————- Name1 ModeX x() y() y() Name2 ModeY y() x() 我自己会尝试通过VBA提出一个解决scheme，但肯定有人在这方面更好，可以发布一个简单的解决scheme？更新：我尝试了以下，但它根本不工作： Sub ConsolidateRows() 'takes rows and consolidate […]

search后从下一列的单元格input数据: 我无法find我需要的解决scheme，所以我正在寻求帮助。我有3列数据，我需要sorting通过我的项目。列A包含我的search词，列B是我的数据库，列C是另一组数据，列D是我的输出。所以一个例子是这样的：单元格A1包含apple 。我想通过列Bsearch短语apple 。假设在单元格B50find它，那么我想将C50的值输出到D1 。目前我有这个： =if("A1"=B:B,1,0) 但是我不知道如何将C50输出到D1因为find了这个短语。只是要清楚，没有价值的重复任何地方。谢谢。

将合并的单元格的结果保存到一个新的csv文件: 我提出了关于每行单元格合并的问题。我在这里收到了很好的答案：第一个问题现在，我正在使用第一个问题中的代码，另外我使用了这个问题的代码：第二个问题我的目标是将合并的单元格的结果保存到一个新的csv文件。结合两者的代码我有这样的： Sub sisk() Dim sisk As String Dim row As Long Dim col As Long Dim Rng As Range Dim WorkRng As Range Dim xFile As Variant Dim xFileString As String For row = 2 To 96 sisk = vbNullString For col = 1 To 4 If VBA.Len(sisk) Then […]

Python – 用csv.DictReader忽略len（）中的空单元格: 在比较CSV文件中的行时，我偶然发现了问题。我可以用len（）和csv.reader，它工作得很好，但我必须sorting文件的关键。我有唯一的键，所以我想使用DictReader但len（）似乎读取字典中的所有值包括空单元格： with open (baseline, 'r') as baselineF: readBaseline=csv.DictReader(baselineF, delimiter=',', quotechar='"') for rowb in readBaseline: print('rowb: ',len(rowb)) with open (tested, 'r') as testedF: readTested=csv.DictReader(testedF, delimiter=',', quotechar='"') for rowt in readTested: print ('rowt: ', len(rowt)) # Rows are the same len if len(rowb)==len(rowt): writerSameOracle.writerow(rowb) writerSameHPCC.writerow(rowt) print ('Rows are the same') break 即使行具有相同数量的填充单元，也可以使用此代码，它将返回len（）=每个文件中的标题数。

Excel计数行项目，而不是从请求的macros计数: 使用一个简单的macros： Function CountItalics(r As Range) As Long Dim rI As Range For Each rI In r CountItalics = CountItalics – rI.Font.Italic Next rI End Function 这确实计算了斜体字的数量，但不是斜体的单元格范围内的信息，意思是： 3个单元格没有合并这将计为1 但是这个： 3个单元格合并将计为3个（我合并成3个单元格）。

Excel格式化错误 – 是否有任何解决方法？: 我有一个非常大的excel电子表格，我正在使用的销售组织使用，与单元格一起input数据以及locking的文本单元格读取。在整个工作表中，在同一个合并单元格中有两个字体颜色的区域 – 例如… 这个句子是黑色的，除了这两个BOLD RED单词外。（Stackoverflow不允许颜色…）我尝试使用条件格式来使文本与背景颜色相同，以在某些情况下隐藏文本，但是单元格中只有第一种字体颜色受到影响，而第二种颜色与条件格式保持不变。有没有需要VBA的解决办法？

如何创build从源单元格中获取值和格式的VBA公式: 在Excel的VBA中，我想创build一个既能从源单元格中获取值又能获得格式的公式。目前我有： Function formEq(cellRefd As Range) As Variant 'thisBackCol = cellRefd.Interior.Color 'With Application.Caller ' .Interior.Color = thisBackCol 'End With formEq = cellRefd.Value End Function` 这将返回单元格的当前值。我注释过的部分在单元格中返回#VALUE错误。当取消注释看起来引用的颜色被保存但是Application.Caller返回一个2023错误。这是否意味着这不是返回所需的Range对象？如果是这样的话，我如何获得引用该函数的单元格的范围对象？ [显然为了将颜色设置为源值]。

将多个单元格链接到TextBox VBA: 嗨，我是新来的VBA，但想做一些看似简单的事情，但我无法弄清楚。我想链接多个单元格到一个文本框，并在不同的行上的值。防爆。 A1 =蓝色; B1 =红色; C1 =黄色我想要一个文本框返回：红蓝色黄色我无法在任何地方find答案。我现在的代码是： Sub Macro2() ' Macro2 Macro ActiveSheet.Shapes.Range(Array("TextBox 2")).Select Selection.Formula = "=$A$1" End Sub 这将A1的值返回到文本框中，但是我也需要B1和C1的值。任何帮助，将不胜感激。谢谢更新：埃尔伯特比利亚雷亚尔的答案解决了我的问题，但我还有最后一个问题。我有多行，我想这样做（A2，A3，A4）。有没有办法为这些不同的数据行做循环？

正则expression式来validationExcel单元格: 我正在处理一个PHP应用程序，用户必须插入Excel的单元格ID（例如A1或AB32 ），该值存储在数据库中供以后使用，并且我试图validation单元格ID格式正则expression式，但它似乎并没有工作，这是我到目前为止。 ^[a-zA-Z]\d$

VB.Net：从行和列获取单元格地址: 我知道这个问题之前已经被问过了，但是我已经试过对他们俩的答案，也没有为我工作过。当前代码： Dim aString As String Dim address As String For Each thisTriangle In triangleArray drawTriangle(rowToDrawIn, thisTriangle.getMarkedCell) aString = String.Format("Activity Name: {0}", thisTriangle.getActivityDescription) //here is where I am trying to get the address address = xlWorkSheet.Cells.Address(rowToDrawIn, thisTriangle.getMarkedCell) xlWorkSheet.Range(address).AddComment(aString) Next 正如你所看到的，我正试图获得地址，然后在该地址发表评论。运行此代码时，我收到运行时错误。 thisTriangle.getMarkedCell返回一个int作为列号， thisTriangle.getMarkedCell返回行号。任何和所有的帮助，非常感谢。