Tag: 单元格
如何在基本单元更改之后在excel vba中保持范围定义？
Excel noob在这里（对不起）。 我的macros像这样运行： Dim CellA, CellB As Range Range("A1") = 25 Set CellA = Range("A1") Range("A1") = 50 Set CellB = Range("A1") 问题出在这之后， CellA也就等于50 。 是否可以调整代码以保持CellA为25但仍然使用A1作为源代码？
Excel如果单元格值大于同一单元格的先前值
我想把一个值给A1，当我改变A1我想保持在另一个单元格中input的第一个值。 这可能吗？ 谢谢
Excel连接多个单元格，其中一个是相同的其他更改
我有一个Excel文件。 B1具有文本值ME 。 B2有一个数字值01 。 从C1到C100的值是shot001到shot100 。 我想在G1中连接一个公式： B1+B2+C1然后在G2我需要B1+B2+C2然后在G3我需要B1+B2+C3 。 我在G1 = CONCATENATE(B1,B2,"_",C1)做了一个公式。 如果我沿G列拖动公式，则B1和B2的值在B3和B4变化，然后在B5和B6 。 我的问题是我不知道如何强制公式在每个公式B1和B2中都使用ALWAYS。
使用Excel中的“匹配”function返回单元格地址
我有一个表格中的数字列表，我想search并返回数字所在的单元格引用。 例如，数据如下所示： ABCD 1 1 2 3 4 确定它不出来，因为第一个是行号，然后每个字母下面的每个数字，所以C1将包含“3”…. 如果我想返回一个单元格的C1的参考号码，我使用公式=CELL("address",MATCH(AU14,C1:AG1))但这只是错误。 我也试图把索引放在那里，但我相信索引只能垂直工作，所以这会带来＃N / A的结果。 任何人都可以协助，因为我已经浪费了太多的时间了！ 🙂
如何删除Excel单元格中的特定数字
我有一个包含以下数据的Excel单元格： 0.5 0.6, 0.3 0.4, 0.8 0.9 有没有一个公式我可以适用，从第一个逗号之前和最后一个逗号之前的单元格中移除所有内容。 我想要的结果如下： 0.5 0.6, 0.8 0.9
错误1004使用范围单元格时
我正面临运行时错误1004与这段代码。 这很奇怪，因为这个代码在另一个模块中工作，但是当我把它放在一个用户表单中时，它不起作用。 使用断点时，我发现这一行发生了问题 Set SourceRange = WorkBk.Worksheets(1).Range(Cells(FindRow + 2, FindCol), Cells(LastRow, FindCol)) 我已经研究和尝试了一切 Set SourceRange = WorkBk.Worksheets(1).Range(Cells(FindRow + 2, FindCol)).Resize(LastRow) Set SourceRange = WorkBk.Worksheets(1).Range(Cells(FindRow + 2, FindCol)).Resize(LastRow, LastCol) With WorkBk.Worksheets(1) .Range(.Cells(FindRow + 2, FindCol), .Cells(FindRow + 2, FindCol)) End With 而没有人似乎工作。 此代码再次在另一个模块上工作。 我不知道为什么当我放在用户窗体的命令button子下时，它不工作。 请帮忙 完整代码： Dim FileName As String Dim SummarySheet As Worksheet Dim WorkBk […]
在索引单元格属性中引用Excel VBA中的string值
VBA新手这里有一个基本的问题，我一直在努力寻找答案： 我试图在VBA中查找一个string（或单词）的循环，如果find这个单词，一个指定的字母必须出现在它旁边列的单元格中。 当我使用一个特定的单元格引用（例如Cells（72，10））时，这个工作正常，但是当我尝试使用一个索引（例如Cells（i，10））来循环它时，它给出了错误13-types的不匹配。 我正在查找的“string”是从Excel中作为基本计算函数写入的另一个macros的输出（“峰”或“谷”）。 错误是由于尝试引用不同于“单元格”function可识别的数据types的结果吗？ 还是有更好的方式来运行我的循环？ 以下是macros和我的循环。 Function FTrough(tmin2, tmin1, t, tplus1, tplus2) If t < tmin2 And t < tmin1 And t < tplus1 And t < tplus2 Then FTrough = "Trough" Else FTrough = "" End If End Function 和循环“： Sub Lookup() Dim i As Integer Dim j As Integer Dim c As […]
find一个单元格，检查其他的出现，并复制出现的偏移量。 错误91，块没有设置
首先我打开这个问题： 检查合并单元格，并比较相邻设置比较单元格值的唯一值 。 同样的情况，第column 6键值和第column 31 column 6值现在要求已经改变。 现在我需要search第column 6每个单元格，并且对于此search的每一次出现，将值（第column 25 ）从第一次出现复制到其他单元格。 我的意思是，如果我有五个search“KEY_VALUE”的结果，我需要将与第一个search结果相关联的第column 25的值复制到第column 25中的其他相应单元格中。 问题是，当我运行我的代码时， 运行时错误91：对象variables或块variables未设置，即使我有一个With块。 我正在阅读对象variables或块未设置 -但在我的情况下，我试图分配一个stringvariables与search的结果不是一个范围。 这是我的代码： Sub CopyUUID() Dim lRow As Long Dim rng As Range Dim searchResult As Range Dim ws As Worksheet Dim strSearch As String Dim uuid As Variant Set ws = Sheets(ActiveSheet.Name) With ws lRow = .Range("F" […]
从列的单元格复制到特定的单元格
我正在创buildExcel的代码以将上一列中单元格的内容复制到下一个单元格。 我想要复制的内容的单元格是绿色的。 但是我需要search整个工作簿和所有工作表中的所有内容，因为每个绿色单元格可以位于不同的列中。 我的代码是： Dim wb As Workbook Dim sht As Worksheet frow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row fcol = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Column Cells.UnMerge Set wb = ActiveWorkbook For Each sht In wb.Sheets For ncol = 1 To fcol For nrow = 1 To frow If Cells(nrow, ncol).Interior.Color = RGB(0, […]
获取单元格的值，或者如果是公式 – vba，则更改该值
我正在遍历工作表中的单元格，并获取单元格的值，如下所示： item = Cells(i, 3).value 虽然有时候，我在单元格中有一些公式，例如： =BD=F5=E3 =some string 这是types错误，但Excel生成它作为公式，所以当我在这些单元格上做这个： Cells().Value我得到types不匹配的错误。 有没有办法通过这个错误？ 或者像在工作表中声明所有的单元格为string，不pipe是什么？ 谢谢
