Tag: excel 2010

Excel：需要macros – 2列数据成为1列“彼此”

你好，先让我说声谢谢！ 我使用Excel捕捉用户要求和说明。 然后，我将这些信息清理干净并粘贴到演示文档中，应用格式化，粘贴到Powerpoint等。总共可以完成100行。 我正在寻找的是一个macros，我可以应用于数据一旦粘贴到Excel中。 数据将是文本，非数字 我有一个macros，我用它插入一个空行作为其他行。 然后我手动执行一切（macros显示如下）。 我正在寻找的是一个插入一个空行的macros，然后向下偏移第2列。 然后将第1列粘贴到第2列（而不是将空白单元格复制到第2列中已有的数据上）。 我粘贴了一个链接到我正在寻找的图像。 我也试图在下面显示（数字是第1列，字母是第2列）。 2列到1列 – 所需的结果 1 A 2 B 3 C 结果我想要： 1 一个 2 乙 3 C 我目前的“空白行”macros： Sub insertrow() ' insertrow Macro Application.ScreenUpdating = True Dim count As Integer Dim X As Integer For count = 1 To 300 If ActiveCell.Value <> "" Then […]

Excel函数searchstring中的多个关键字

我有两张桌子。 其中一个有服务器名称。 另一个有时间戳（下面的第一个表，列A ）和文本string（下面的第一个表B列）。 我想search这些string中的服务器表中指定的关键字（第二个表）。 如果find匹配函数，则从关键字所在列的标题中写入单元名称。 例 我想在蓝表中完成列System 。 所以例如C2应该显示GreenSys和C8 – RedSys 。 我曾尝试使用SEARCHfunction，但它看起来像它试图匹配整个表的string，如果我把它作为parameter passing。 我使用两个表时， VLOOKUP不起作用。 什么是我得到这个工作的最好方法？

Excel公式来粘贴一个x B模式

我有两列如下A和B. A列包含1,2,3,4,5，B包含a，b，c，d，e 我想在列C，如1a，1b，1c，1d，1e，2a，2b，2c，2d，2e，3a，3b等。

将SUMIF与VLOOKUP或IndexMatch结合使用

我有下面的表格： 我想比较Column A元素的值与列D中的映射等价值。请参阅Range I:J的映射表 第一个是很容易的，在D列中， 211010的值为9570， 211010列中的等价值为（ B1001) ，所以差值为零。 然而，下一个元素222010被映射到两个元素B30和B3030 我想要的是列Z中的公式将列D中元素的值加起来; 例如222010 ，即-3,041，并将其与其在A列（B30＆B3030）（ – 6327 + 3286）中的映射当量之和3,041进行比较，并返回可能为零或其他值的差值。 我试着结合使用SUMIF / + IndexMatch / VLOOKUP，但我无法让它为我工作。 任何帮助将不胜感激。

Excel VBA; 更新连接string

我只是想让VBA更新一个OLEDB连接string。 当我遍历代码时，我没有得到任何错误，但连接刷新失败，当我检查UI中的连接string时，显然我的代码根本没有改变（因此刷新失败）。 我错过了什么？ 这里是代码： Sub UpdateQueryConnectionString(ConnectionString As String) With ActiveWorkbook.Connections("Connection Name"). _ OLEDBConnection .Connection = StringToArray(ConnectionString) End With ActiveWorkbook.Connections("Connection Name").Refresh End Sub 被送入的ConnectionString是： ConnectionString = = "Provider=SLXOLEDB.1;Data Source=SERVER;Initial Catalog=DATABASE" _ & ";User ID=" & Username & ";Password=" & Password & _ ";Persist Security Info=True;Extended Properties=" _ & Chr(34) & "PORT=1706;LOG=ON;CASEINSENSITIVEFIND=ON;INCLUDECALCFIELDS=ON;" & Chr(34) 函数StringToArray直接从http://support.microsoft.com/kb/105416上的示例4复制而来

如何使用NetOffice更改Excel行的行颜色？

我正在努力解决一个简单的问题，但我无法弄清楚。 我有一个Excel文档，我做了一些处理（使用NetOffice API）。 这工作正常，但我想更改处理后的行颜色，所以在范围内的每一行应处理后具有相同的颜色。 我得到一个COMException（HRESULT：0x800A03EC）与下面的代码： foreach (Excel.Range row in rg) { //do the processing… … row.Interior.Color = XlRgbColor.rgbAliceBlue; } 我也为这个HRESULTsearch，并试图解决这个问题，在Open（） – 方法通过设置readOnly为false和可编辑和corruptLoad为true。 那没用。 我也尝试将交互属性设置为true，并以不同的格式（.xls，.xlsx）保存excel文件，但没有任何结果。 我发现excelfile / workbook是受保护的。 所以我试图像这样解除ActiveWorkbook的保护 app.ActiveWorkbook.Unprotect(); 但是，这也出错了，并抛出一个COMException，该工作簿对象的unprotect属性不能分配。 我希望有人能帮助我。 提前致谢， 科德尔

Excel VBA列表框链接

我目前有一个两列和多行的macros。 这两列包含信息，如名字和一个文件夹或网站的链接。 当我点击macros上的button时，它将从Excel工作表中获取所有信息，并显示名字并将其放置在列表框中。 我想知道，是否有可能，当我点击button，我显示列表框中的第一个名字，但也存储链接？ 当我在列表框中select一个项目时，我希望它打开链接。 这可能吗？ 我想到了一种方式，这是与列表框和一个数组存储链接，当我点击一个项目，它search数组，然后打开链接，对于EXMAPLE：如果我点击第一个项目列表框，它将进入数组并转到数组（1），然后获取该链接。 这是我想到的一个方法，但有没有更简单的方法？ 而不是我存储链接到一个数组和所有这一切。 我现在的代码是： For row = 3 To 10 ListBox1.AddItem Range("A" & row).Text Next 我不知道如何添加超链接到这个代码

为什么我在Excel 2010数据透视表中获取重复的行？

我正在使用数据透视表（Excel 2010）中汇总的大型表（800,000行）数据。 我试图通过添加一个包含公式= ROUNDUP（，1）的列来基于项目的权重四舍五入到最接近的0.1LB来“旋转”。 出于某种原因，数据透视表显示重复的行标签： Weight Band Pkg # Processed 0.3 10,812 4,211 0.3 9,878 4,464 <<< Duplicate row label "0.3" 0.4 23,989 12,490 0.5 35,928 19,036 0.6 22,921 18,500 0.7 17,348 13,431 0.8 4,291 2,325 0.8 10,280 8,923 <<< Duplicate row label "0.8" 0.9 21,084 7,766 1 24,574 19,438 1.1 8,943 7,201 1.2 6,280 […]

如何在Excel 2010中使用VBA查找连续的最后一个彩色＆空单元格？

我是VBA的新手，正在编写一个macros来查找在特定行中填充特定颜色的最后一个空单元。 基于我迄今为止所阅读和尝试的内容： 当试图识别最后一个单元格/行/列时，最好从底部开始或从右侧开始。 Find方法比使用循环更快。 关于（以及因此的用法）的问题重点关注用（有时没有）数据或最后使用的单元格（通常在一列中，并包含数据）来识别最后一行或一列。 在使用Find方法之前，最好指定内部颜色，因为它可能具有其他内部颜色的值，这些内部颜色可能与之前使用的颜色（通过代码或用户）有所不同。 这是我到目前为止的代码： Sub FindLastEmptyTurquoiseCellOnRow18() Dim rngFindColorCell As Range Range("XFD18").Select With Application.FindFormat.Interior .Color = 16763955 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With Set rngFindColorCell = Range("A18:XFD18").Find(What:="", After:=Range("XFC18"), _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False, SearchFormat:=True) rngFindColorCell.Select End Sub After参数似乎与我想要的search方向明显冲突的新手眼睛（之后指示向右（？）， xlPrevious说到左边）。 如果search必须在进行到左边之前确实开始1个单元格，我指定了该行中的倒数第二个单元格。 这也可能是我可以限制行的search到第8785列。 我试图在最后（这一次使用Select ）来确定代码是否正在识别正确的单元格。 正是在这个时候，通过代码，我得到的错误： 运行时错误“91”：对象variables或块variables未设置 我如何确定代码是否正在识别正确的单元格？ （我已经试过MsgBox并将find的单元格的内部颜色设置为不同的颜色，但也会出错。） 代码中有错误，无法识别正确的单元格吗？ 我是否应该使用Find方法以外的方法？ […]

如何在Excel中分隔数据

我的最后一个excel有很大的问题。 我有很多看起来像这个“文本文本号码，数字，数字”的单元格我希望有一个单元格与“文本文本文本”，另一个与“数字，数字，数字”问题是，在不同的单元格是不同数量的“文本”或“数字”。 所以我认为，我必须先制定出公式“，然后”先离开“，然后把这个地方分开。 请有人帮我用这个公式？