Tag: 发现

将数据复制到另一个工作表: 我无法理解下面的函数在做什么。该function本身具有将数据复制到工作Sheet History 。但是，我不明白这是怎么回事？ Sub histFunc() Dim Y As String Y = "R" & Range("G7").Value Sheets("Sheet History").Select Range("h17").Select Cells.Find(What:=Y, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Range(Selection, Selection.End(xlToRight)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet Current").Select End Sub 任何build议这个macros如何运作？我很感激你的回复！

计算出现次数 – Excel: 我有一个简单的问题，但我无法从search中得到答案。我需要一个列来计算第n个值的出现次数。这张照片最好解释一下我需要一个方法来计算列B. 我会很感激任何帮助。

Excel – 在范围内的string中查找文本: 我希望我能在Excel中做到这一点，因为我已经有15年没有玩过VBA了。我正在尝试重build客户端电子邮件列表，由于某些原因，一些电子邮件地址已经自我复制，然后从重复地址的正面切下了字母。我需要删除所有重复例如我所拥有的是什么。 Robert@email.com Kimberly@othermail.com James@anothermail.com Michael@milmail.com Julia@supermail.com 然后在所有的好的电子邮件地址下面都是这样的重复 ert@email.com y@othermail.com hael@milmail.com 一切都在一列 – 答：一个我需要一种方法来find所有的重复删除，以便我可以删除它们。谁能帮忙？

查找特定数据并复制内容直到行结束: 我已经分别维护了两个Excel报告EPC1.xlsx和Control Power Transformers.xlsm 。我想触发Control Power Transformers.xlsm报告中的一个button点击，它将从EPC1.xlsx “A”列中search"CTPT"项，一旦find需要复制列B和列c的项，直到行结束（在EPC1.xlsx ）并粘贴在Control Power Transformers.xlsm工作簿中我成功地检索“CTPT”术语的单元格地址，但是如何从邻近的列B和C中select数据？这就是我所尝试过的 Private Sub CommandButton23_Click() Dim rngX As Range Dim num As String Windows("EPC 1.xlsx").Activate Set rngX = Worksheets("Sheet1").Range("A1:A10000").Find("CTPT", Lookat:=xlPart) num = rngX.Address ' Here we will the get the cell address of CTPT ($A$14) Range(rngX, Range("C" & rngX.Row).End(xlDown)).Copy Windows("Control Power Transformers.xlsm").Activate Sheets("Sheet2").Select ActiveSheet.Range("E2").PasteSpecial […]

查找date是否存在于单元格范围（Excel VBA）: 我有一个单元格F2包含一个date，并被格式化为自定义date字段只显示日期和月份。然后我有一个单元格范围C3;C60也包含date，并格式化为欧洲date字段显示dd/mm/yyyy 我正在编写一个VBA，检查这些字段，但它不工作。在下面的示例中，variablesc可以是F5和F20之间的任何单元格。我得到RuntimeError 91. If Worksheets(1).Range("C3", "C60").Find(Worksheets(1).Cells(2, c.Column).Value) = True Then c.Value = "Whatever" Else

为什么Excel VBA中的.Find（）方法似乎只检查前15个字符？: 我有Excel列表与ID和数据（约8000行以上）。 ID的只能是数字或数字与字符。像“ 2222222222222223 ”或“ 222222222222222A ”（带ID的单元格格式为文本）如果我尝试使用ID查找入口地址，它将插入一个现在的行，因为它不会find它们。什么意思，最后我把所有的参赛作品翻了一番。所以我的问题是，查找方法比较有多less个字符？ With objSheet strAdresseExcel = .Cells.Find(What:=str, After:=.Cells(1, 1), _ LookAt:=Excel.XlLookAt.xlWhole, MatchCase:=True, SearchFormat:=False).Address End with 所以我创build了一个8000行的虚拟列表，其中所有的ID号都是“ 2222222222222222 ”，我find了一些东西。该Excel只比较前15个字符，如果只有数字string，但我工作正常，如果有一个字母在ID！您可以在下面的图片中看到问题信息到图像：行A：我使用条件格式。（在主页选项卡上，单击条件格式，突出显示单元格规则，重复值）只有当ID有数字或前15个字符有区别时才起作用。排B：我曾与一个公式。（ = IF（COUNTIF（A：A; A2）> 1;“Double”;“”））你怎么看，同样的问题也发生在这里。