Tag: excel 2010

将表名重命名为表名

我从SQL导入了一堆数据到我的Excel中。 所以我有一堆这样的表： 每张纸都有一个表格名称，可以在表格视图区域中查看： 我想知道是否有任何方法来重新命名表的名称是什么。 任何帮助，将不胜感激。

如何在excel vba中将单元格从一行复制到另一行

Range("A7:C17").Copy Range("F2") 我只是想将数据从A7复制到F2; B7到F3和C7到F4在同一张纸上。 我使用了上面的代码。 但如果我增加了一行（即，A18 B18 C18），那么它不工作。 帮我

确定Excel中单元格中是否有空格

我有一个超过2000行的电子表格，每个都有一个唯一的参考号码。 我想使用VLOOKUP的参考号码到另一个报告。 我的问题是，尽pipe所有的参考号码最后都有一个字母，但是在字母和数字之间有一些空格，而其他字母之间没有空格。 例如：637408 A相比837408A 我想要使​​用VLOOKUP来比较参考的表单在字母和数字之间没有空格。 是否有一个Excel函数，我可以用它来快速检测哪些引用有一个空间，如果他们这样做，消除空间？ 谢谢。

根据名称和date将数据从一张纸复制到另一张

所以我有两张床单 两者都是花名册。 一个有date的顶部，左侧名称。 另一个则相反。 我需要从后者的数据复制到前者。 我可以将复制单元格硬编码到单元格，问题是从名册到名单的人员变动量。 什么是完成这个最好的方法？

运行时错误“6”：溢出错误

代码工作得很好，直到几天前，但现在得到的主题行错误。 帮帮我？ Sub CopyRows() Dim bottomL As Integer Dim x As Integer bottomL = Sheets("Pacer").Range("L" & Rows.Count).End(xlUp).Row: x = 1 Dim c As Range For Each c In Sheets("Pacer").Range("A1:L" & bottomL) If (c.Value = "AFSB" Or c.Value = "TEIGIP4T" Or c.Value = "EPP") Then Intersect(c.Parent.Columns("A:Q"), c.EntireRow).Copy Worksheets("Portfolio").Range("A" & x + 1) x = x + […]

如何匹配单元格值并从不同的工作表复制它们

我需要匹配图表1中的列A值与图表2中的列A值。如果两者相同，则从图表2中复制B和C值，并将其粘贴到图表1中的D和E.我将在图表2中手动input值在B和C. 我用下面的公式。 但不工作。 因为大部分CO列A值都不合格。 VBA代码或EXCEL公式将是真正有用的。 =IF(Sheet4!A2=Sheet5!A2;Sheet5!B2;" ") =INDEX((Sheet5!A:A);MATCH(Sheet5!B2;(Sheet4!A:A);0))

如何插入并拖动公式，直到Excel VBA中的最后一行

我想在E行的末尾插入只计算每个月的第一天（1.Nov.2017，1.Dec.2017等）的公式，并拖动到与D行的值相等的末尾。 我用下面的代码，但不工作。 只有A：D有数据，我才需要“E12：E21”中的值作为01.Nov.2017。 但A：D会自动计算。 下个月A22：D24将包含数据。 所以我需要在“E22：E24”中的值为01.2017年12月。 帮我 Private Sub CommandButton1_Click() Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Select Run FirstDayInMonth() Selection.AutoFill Destination:=Range("D" & Column.count).End(xlUp).Offset(0, 1), Type:=xlFillCopy End Sub Function FirstDayInMonth(Optional dtmDate As Date = 0) As Date Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Select If dtmDate = 0 Then dtmDate = Date End If FirstDayInMonth = DateSerial(Year(dtmDate), _ Month(dtmDate), 1) End Function

Excel VBA：连接每一行中的列

我有一个选定的单元格范围。 需要连接其中的所有列，并将结果logging在行的第一个单元格中（select中的第一列）。 我试图写下面的代码 Dim row As Object Dim col As Object Dim cell_concat As String For Each row In Selection cell_concat = "" For Each col In row cell_concat = cell_concat & col.Value Next col `How to record in first cell? Next row 但是，这种方法不幸的是不工作，我不知道如何cell_concat的第一个单元格中loggingcell_concat 。 我在做什么错，在代码中修复什么？

如何使Excel VBA中的多个pivotitem不可见

我在工作表“EX”中有一个数据透视表。 在“报告filter”字段中，我有“国家代码”，其中包含200个国家。 我想使用InputBox从该filter中删除（使不可见）超过1个国家/地区。 我用下面的代码，它不工作。 它不是来“如果InStr”线。 帮我 Sub Removecountries() Dim str1 As Variant Dim Data As Variant Dim ws As Worksheet Set ws = Sheets("Ex") str1 = Application.InputBox("Enter the Country – comma separated") If str1 = False Then MsgBox "Please Enter one Country", , "Filter Country" Exit Sub Else If InStr(1, str1, ",") > 0 Then […]

Excel – 将单个值与该值的拆分/总计进行比较

我有一张表单，可以跟踪30,000-40,000磅的材料交付情况。 在“交付金额”选项卡上，我有： Ticket 12345: 41250 Ticket 23456: 42200 Ticket 34567: 43000 在一个单独的标签上，我会说这些条目是否已经被记帐，并且可能会被拆分。 所以我们可能会看到Ticket 34567使用了两次，值为21500和21500。 我正在琢磨如何将所有这些拆分条目与原始总数进行比较。 如果一个表包含 Ticket 23456: 21100 Ticket 23456: 21100 Ticket 34567: 21500 Ticket 34567: 21500 Ticket 34567: 10000 然后查看每张入场券，总结价值，并给出“票23456匹配总额，并已被适当计费”和“票34567超额计费，请重新检查你的数字”的回应。 不是与具体的文本，而只是一个方法来比较拆分和总额与原来的价值应该是什么。