excel-2010相关内容
我有1列,包含大约60个具有值或不同长度的单元格.每个(或至少大多数)值在值中都有一个数字字符.我想将列单元格拆分为更多列,通常使用excel的“从tekst到列"功能. 但是该函数没有高级选项,可以将第一个数字字符的值分割.可以根据空格,逗号等进行拆分,但这对我没有帮助. 有什么方法可以将像元值中第一个数字的像元分为两列? 我查看了许多其他问题,但没有一个(或其他互联网论坛)帮
..
我有一个大型Excel电子表格,该电子表格已经过几年的定制和扩展(有许多工作表),我想从中提取特定数据,然后按照严格的格式将这些数据插入新的电子表格中 第二个较新的电子表格是较大和较旧的电子表格的子集,但是第二个电子表格中的数据必须遵循严格的格式-没有标签或标题,仅是列和行中的数据,从单元格A1开始,并从在那里,还有多个工作表. 我如何才能从原始电子表格中的特定单元格中获取数据,并通过
..
我需要一个宏代码来从单元格1到1000中的sheet1中搜索内容(它可以是数字或字母数字),并从sheet2中搜索相同的文本.如果发现,那么我需要更新与相邻单元格相对应的内容. 例如: sheet1 1024 D 505A 6057 C sheet2 1024 D 6057 C 解决方案 假定查找值在A列中,要复制的值在B列中. Sub F
..
基本上,我的数据页面上有4列,而在另一个页面上,我有一个帐户列表. “数据"页面上有多行同名的原因是因为它们在不同的日期贡献了不止一次. 我需要查看帐户页面,在数据页面上,基金名称等于基金名称,在数据页面上,SB等于SB,在数据页面上,SE等于SE,找出该基金有多少供款者,然后将它们放入在一个数组中. 然后,在“帐户"页面上的D列中,我需要找到SE不是该基金供款人的地方,如果SE不是该
..
我正在尝试使用下面的代码,但是由于某种原因,它没有按照逻辑建议进行工作. myTxt = Application.GetOpenFilename("Text Files,*.txt", , , , True) On Error Resume Next filecount = UBound(myTxt) On Error GoTo 0 If filecount = 0 Then MsgBo
..
我目前在下面有一个excel宏,它基本上将路径中指示的所有文件合并为一个excel文件. Sub simpleXlsMerger() Dim bookList As Workbook Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdati
..
我是VBA的新手,正在尝试将多行从多个工作簿复制到一个主工作簿. 所有工作簿都具有相同的标题和相同数量的列,但是有些工作簿具有更多的行.我希望在主工作簿中将总共6个工作簿(每本书一个工作表)合并到一个单独的工作表中,彼此之下. 标题:第1行,A到M列 我想将工作簿"Daily Trend 2013_MASTER_AR.xlsx"从L4一直填充到D51,从L4到主工作簿,在单元格E2:M2中一
..
这可能是一个简单的解决方法(尽管我认为这可能并非如此),因此,如果这仅仅是儿童游戏,我会提前道歉. 在我正在处理的Excel工作表中,我有一个范围(就本例而言为A1:A10),该范围可以包含A,B或C这3个变量之一(不包括空格). 我需要另一个单元格中的公式来检查所讨论的范围,并根据此优先级中的以下规则输出值: 如果A出现在列中的任何位置,则不管其他输入如何,都显示A; 如果列
..
我在excel中有一组这样的列: ID sizeAndColourAndSku_Value 2ff0d3d7-8c18-4386-83be-1b2485fb4ea9 Select size 2ff0d3d7-8c18-4386-83be-1b2485fb4ea9 Extra Small - Availabl
..
例如,如果我有这个 Sub ExampleThing() Counter = 13 For i = 1 To Counter Range("A" & i) = Rnd Next Range("B1").Formula = "=(PI()*A1)" Range("B1").Select Selection.AutoFill D
..
我的一列中有颜色字符串,例如红色,紫色等.我想用相应的数字替换这些颜色.红色变成1,紫色变成2,依此类推. 那并不难,我使用了替代方法,就像这样: SUBSTITUTE(E3;"red";"1") 现在,问题在于某些列具有2种或更多种颜色,例如“红色紫色",所以我尝试使用: SUBSTITUTE(E3;"red";"1")&SUBSTITUTE(E3;"purple";"2"
..
在excel 2010 vba中,我试图列出特定目录中的所有.txt文件,并在消息提示中显示它们.我希望以下是一个好的开始,但不确定.谢谢 :). vba ' LIST ALL TEXT FILES IN REPORT DIRECTORY ' Const strFolder As String = "C:\aCGH\" Const strPattern As String = "*.t
..
我有一个SQL 2008服务器,该服务器中有一个表,该表具有一列,其数据类型为varchar(MAX).我正在尝试使用ADO将此表中的某些列导入Excel 2010.这是我使用的代码示例: Dim con As Object Set con = CreateObject("ADODB.Connection") cmd.CommandText = "SELECT dbo.(Table Nam
..
我有一个excel工作簿,要求从一个工作表中获取行,并根据列中的值将其复制(追加)到另一工作表中.我可以使用下面的代码来完成此操作,但是很明显,每次我运行此代码时,它都会再次添加相同的行. 即,Sheet1不断添加到表中,sheet2是sheet1中所有在13列中具有“是"标志的行的增量日志.在两个工作表上相同的列,第1列是唯一的ID. 有没有一种方法可以添加到此代码中,以确保仅复制She
..
我的任务如下: 不同工作簿中的几个工作表必须复制到新工作簿中 这些工作表中的每个工作表都包含一个Excel表(一个ListObject),其名称类似于带有后缀T的工作表(工作表Foo,表:FooT) 新工作簿必须包含一个摘要表,其中列出了每个表的名称,并通过使用适当的公式引用它们来显示各个表的各种值 必须经常对不同的工作簿执行此操作,因此该想法是在VBA中执行此操作. 复制工
..
我一直在关注 Public Break_List(1 To 1000, 1 To 100) As Variant If IsInArray(Cells(r, 2), Break_List) = True Then Sub Store_Break_Categories() Sheets("BackEnd").Select Break_No_of_Rows = 0 'For c = 10 To 15
..
每当第I列等于LS时,我都试图获取一个宏,以将某些行从工作表ASR剪切并粘贴到工作表LS. Sub MoveLS() Dim i As Variant Dim endrow As Integer endrow = Sheets("ASR").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To endrow
..
这是对先前为我回答的一个问题的跟进.如果我似乎对此提出了很多问题,我感到很抱歉,我对VBA还是陌生的. 我有一行代码应该在一个单元格中放入一个公式.它给了我 Application Defined or Object Defined Error message: 这是整个宏的代码,最后一行给出了错误. Sub DBFtoAVI() ' ' DBFtoAVI1 Macro '
..
我在工作表中有数据,例如 Emp JID Sumt 1004 1001 2 1142 1001 4 1166 1001 6 1167 1001 1 1169 1001 4 1170 1030 3 1171 1031 6 1172 1031
..
我的日期变量格式如下:25_December_2010 我一旦使用 Dim strDate As String strDate = "25_December_2010" strDate = Replace(strDate,"_"," ") MsgBox strDate 肯定会弹出一个MsgBox并给我:2010年12月25日. 但是,一旦我尝试将值放入单元格,例如: S
..