Tag: 单元格

从macros复制数据时,需要在另一个单元格中设置“现在函数”

我有这个macros从剪贴板获取数据,并将其粘贴到一个特定的单元格转置一些信息。 Sub UpdateData() '~~> Change this to the relevant sheet Set ws = ThisWorkbook.Sheets("Sheet2") With ws '~~> Using this as you are copying it from Notepad~~~~ .Activate .Range("H1").Select .PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Worksheets("Sheet2").Range("H1" & ",H3").Copy Sheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True '~~Clear data content~~~~~~~~~~~~~~~~~~~~~~~~~ Range("H1:H10").ClearContents End With End Sub 我需要使用NOW公式更新(C)行旁边的单元格B来更新单元格B。 我有这个其他macros更新行B,每当行C更新,但他们不一起工作。 Sub Worksheet_Change(ByVal Target As Range) […]

将整数单元格范围转换为Excel单元格范围

我在Ruby / Rails编码,我有一个单元格范围,一个例子是: [0,1]..[0,3] with the convention [row, column]..[row..column] Excel使用单元格范围 A2:A4 with the convention <column><row>:<column><row> 我需要从前者转换到后者。 我所关心的主要是信件: A => 0, B => 1, C => 2, AA => 26 AB => 27 我将如何去做呢? 我基本上需要做相反的事情: 使用ruby生成字母来表示数字?

在Excel VBA中,为什么删除范围中的重复条目将删除单元格背景颜色?

我的工作表对所有单元格都有灰色。 我在列中select范围并删除重复项。 它按预期删除重复项,但也会使重复单元格的颜色为默认白色。 我尝试了多个例子,但看起来像他们用默认的白色完成,可能这个问题从来没有发生过。 我可以编程设置颜色回到原来的,但我不想这样做之前知道为什么发生这种方式。 以下是我的代码 LastRow = GetLastRow(SheetName, ConsolidatedColumn) 'ConsolidatedColumn is "P" WS.Range(ConsolidatedColumn & "1:" & ConsolidatedColumn & LastRow) _ .RemoveDuplicates Columns:=Array(1), Header:=xlYes 有人可以解释为什么发生这种情况?

如何自动更新超链接的多个单元格引用?

我在列中创build了几个超链接,链接到同一工作簿的另一个电子表格。 在那里所有单元格引用也在一列中。 现在我想在工作表顶部的第二页上插入一行。 正如我那样,单元格引用不会改变,并且以前的单元格数字会下降。 我如何更新多个单元格引用自动,因为我在第二张表上插入行?

如何在Excel中使用索引search来locking/解锁单元格

当我使用index-match公式匹配条件时,我想解锁单元格。 我尝试了很多,但没有奏效。 你能告诉我我的错误吗? Private Sub Worksheet_ChangeS(ByVal Target As Range) If[X9] > "42401" Then ActiveSheet.Unprotect("pswrd")[ = INDEX(A16: L35, MATCH(X9, A16: A35, 0), MATCH("GPF", A16: L16, 0))].Locked = False ActiveSheet.Protect("pswrd") Else ActiveSheet.Unprotect("pswrd")[ = INDEX(A16: L35, MATCH(X9, A16: A35, 0), MATCH("GPF", A16: L16, 0))].Locked = True ActiveSheet.Protect("pswrd") End If End Sub

VBA中2个具有相同值的单元格的比较返回错误的输出

所以我有这个代码列出了所有的表格,并将第二行的单元格与第十一行的单元格进行比较。 如果它们不匹配,则将其颜色更改为红色: Dim tbl As ListObject Dim sht As Worksheet Dim i As Integer 'Loop through each sheet and table in the workbook For Each sht In ThisWorkbook.Worksheets For i = 1 To 1000 If sht.Cells(1, i) <> vbNullString Then If sht.Cells(2, i).Value = sht.Cells(11, i).Value Then sht.Cells(2, i).Interior.Color = xlNone sht.Cells(11, i).Interior.Color = xlNone […]

如何在Excel中获取表格上方的单元格的值

我有一个循环遍历所有表单的函数。 每个循环都有一个循环,循环遍历表格中的所有表格。 我不知道如何获取表格列标题正上方的单元格的值。 For Each sh In ActiveWorkbook.Worksheets If ActiveSheet.Name <> sh.Name And Not sh.Name = "Template" Then For Each tbl In sh.ListObjects I need those values here Next tbl End If Next sh

在另一个工作表中引用一个单元格,在'='之后带有'+'的公式

我有一个电子表格,是我公司所有成本的一般总结。 我想要做的就是从另一张工作表中引用一个单元格,这样单元格的公式就是 – ='standard cost – MP'!L61 然而这是被引用的单元格的值 – 而这个单元格的公式在'='之后有一个'+',这是我以前从未见过的,所以单元格的标准成本公式MP'!L61'是 – 只要我改变它,也就是说在开始的时候除掉多余的加号,单元格的值就会变成0。 而当我尝试将单元格复制到另一个工作表时,它再次不会像下面那样通过相同的variables。 它以一个空值再次响应? '='之后是多less'+'? 任何帮助将非常感激。 多谢你们 格雷格

我想要一个单元显示另一个单元格的一些字符

我如何使一个单元格显示另一个单元格的一些字符? 例如单元格A1显示“abc12345”,我希望单元格A2显示“123”(即字符4到6)。 提前致谢!

我如何获得不同范围的细胞值?

我使用xlwt与Python来从某些东西获取一些数据,并写入一个xls文件,但我需要在不同范围的单元格中获得输出。 我有这样的代码: – #Here's the code for that : import xlwt from tempfile import TemporaryFile book = xlwt.Workbook() sheet1 = book.add_sheet('sheet1') a=[1,2,3,4,5] b=[6,7,8,9,10] c=[2,3,4,5,6] data = [a,b,c] for row, array in enumerate(data): for col, value in enumerate(array): sheet1.write(row, col, value) name = "table.xls" book.save(name) book.save(TemporaryFile()) 输出( “table.xls”): #Output * ABCDE 1 1 2 3 4 […]