Tag: 单元格

Excel 2007 – VBA从一个单元格粘贴到另一个单元格下的粘贴值

**我正在计算string,如果一个字出现10次。 那么这个单词是在单元格a1和计数是在单元格a2 ** – 我从代码生成这个…(SUM((LEN(range_chk)-LEN(SUBSTITUTE(UPPER(range_chk),UPPER(Sheet2!E8), “))))/ LEN(Sheet2!E8)))(我的数据在sheet1中,我在sheet2中find单词…. FYI – range_chk是通过名称pipe理器在excel中使用的偏移量函数—此代码工作正常) 我试过worksheet_change(byval target as range)函数,但它进入loop 。 请帮助代码。 我需要的是 我正在找单词:在单元格A1:我 我正在计数:在单元格A2:5 从细胞上面切下,贴在里面 单元格A7 – “我”单元格B7 —“5” 接下来搜查字:“真”与数3 剪下n粘贴在单元格A8 – “真的”单元格B8– 3 下一页search词:“sense”with count 6 剪切n粘贴单元格A9 – “感”单元格B9 – 6 ….等等。 然后根据计数按升序对A7:B9的范围进行sorting。

用特定的单元格填充上面的值

我有一个数据范围,我想这样转换: BEFORE: AFTER: PO001808 |PO001808 PO001808 |PO001808 FALSE |PO001808 FALSE |PO001808 FALSE |PO001808 PO001845 |PO001845 PO001845 |PO001845 PO001845 |PO001845 FALSE |PO001845 FALSE |PO001845 我正在尝试填充具有FALSE的单元格,并使用高于它们的值,然后在达到新值时重复该过程。 我必须使用VBA公式还是可以使用简单的函数?

使用vba禁用单元格内容检测

我需要知道如何禁用使用VBA的单元格内容检测,因为当我从* .CSV文件导入数据时,我不想在“date格式”中获取date,即使我指定它只是文本import。 我想把string作为date。 如果我尝试更改格式后导入我得到一个数字,而不是与date的string。 Cells.Select Selection.NumberFormat = "@" 'importo los datos With ActiveSheet.QueryTables.Add(Connection:=datosConexion, Destination:=Range("$A$1")) .name = archivo .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 65001 .TextFileStartRow = […]

突出显示相邻单元格在其旁边单元格中find的date后的十个工作日(不含节假日)

我一直试图用这个条件格式来解决这个问题,现在几天没有用 我已经这样做了,每次input“文件编号”时,灰色右边的单元格显示在dd-Mmm-yy中input的date(例如,文件编号是C8dateinputD8)。 现在我需要的是一个macros或条件格式,将突出显示“运动”(B,E …)和“FILE NUMBER”(C,F …)从相应的灰色单元格(D,G,J …)中input的起始date过去。 我想用WORKDAY,但是单元格是随机填写的,所以我不知道开始date是什么。 这不是一个持续时间的项目。 我想今天使用,但不包括工作日。 请帮忙! 谢谢!

在合并的单元格下求和项目

我想请求帮助来总结合并单元格下的所有项目。 项目看起来像这样: June 0 1 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 0 1 六月份是一个合并的单元格,我想把它下面的所有项目加起来。 这甚至有可能吗?

如何在地址中添加逗号分隔符到城市的开始处

例: 1412 Chestnut Street Philadelphia 494 W Germantown Pike Plymouth Meeting 我想在每个城市的开头添加一个逗号作为200的列表,但正如您在上面看到的,有时城市名称并不是从单元格的最后一个单词开始。 是否有一个在Philadelphia和Plymouth Meeting之前增加逗号的总体配方?

按单元格内的数字拆分单元格

我有一些领域需要分成不同的单元格。 它们的格式如下: 使命号码21 0 21 特派团的号码5 1 6 所需的输出将是4个独立的单元格。 第一个包含string“Numbers on Mission”中的单词,随后的单元格将具有每个数字,这是由一个空格确定的。 因此,对于第一个例子来说,要提取的数字是21,0,21。每个数字都将位于string值旁边的自己的单元格中。 第二,5,1,6。 我尝试使用拆分函数,但不知道如何针对具体的数字,并根据空格分隔他们确定数字。

方法单元格对象-Worksheet失败

我有一个函数,应该经常运行: Public Function FindNumberofhandle(stsmenthandle As String) As Long Dim r As Long Dim LastUsedRow As Long LastUsedRow = Worksheets(2).Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row For i = 1 To LastUsedRow If ActiveWorkbook.Sheets(2).Cells(i, 2).Value = stsmenthandle Then 'ERROR HERE r = i End If Next i FindNumberofhandle = r End Function 我得到这个错误: run time error -2147417748(80010108) Method Cells […]

如何在不同的Excel表格中search范围内的单元格内容

我正在为以下schemesearch公式(如果存在):在工作簿中,在单元格“A1”的表单“A”和单元格“B”中,我有“罗杰斯” “B”,在单元格“B1”:“B20”我有一系列的“FirstName LastNames” 我要查找的是如果在该范围内find单元“A1”的内容,则在书“B”的范围“B1:B2O”的范围内的书“A”中search单元“A1”返回“是”,如果没有find,返回“否”。 我已经尝试了SEARCH,FIND,ISNUMBER,IF,IF ERROR等几种组合,但是没有一个为我工作,导致我相信,我可能没有input正确的公式。 任何帮助,高度赞赏。

如何在Excel VBA中将所有单元格颜色从一个工作簿复制到另一个工作簿?

我有两个具有相同表名和相似数据的大型工作簿。 源表格有一堆应用于单元格的颜色,我必须将这些颜色复制到目标工作表中各自的单元格。 我试过这个build议: 如何从一个工作簿复制Excel配色scheme到另一个 但它似乎没有做任何事情。 这是我写的代码,但它locking了很长一段时间。 它看起来适合你吗? Sub CopyColors() Dim x As Workbook Dim y As Workbook Dim SomeSheet As Worksheet Dim SomeRange As Range Set x = Workbooks.Open(" c:/PATH/Source.xlsm ") Set y = Workbooks.Open(" c:/PATH/Destination.xlsm ") y.Colors = x.Colors For Each SomeSheet In x.Worksheets For Each SomeRange In SomeSheet.Cells y.Sheets(SomeSheet.Name).Range(SomeRange.Address).Interior.ColorIndex = SomeRange.Interior.ColorIndex Next SomeRange […]