Tag: 范围

在Excel单元格中对单元格序列做些什么？

我想总结 “A9和A54之间的每第五排”，即 A（5x + 9）-A（54）， 在excel里面。 这里还有一个子问题。 是否可以使用函数或VBA求和一系列单元格？ 这里有一些testing问题，根据答案： =SUMPRODUCT(–(MOD(ROW(Range)-MIN(ROW(Range))+1,1)=0),A1:A50) – 行A1到=SUMPRODUCT(–(MOD(ROW(Range)-MIN(ROW(Range))+1,1)=0),A1:A50) ？ =SUMPRODUCT(–(MOD(ROW(A50)-MIN(ROW(A50))+1,2)=0),A1:A50) – 隔一行，A1到A50 =SUMPRODUCT(–(MOD(ROW(A5:A50)-MIN(ROW(A1:A50))+1,5)=0),A1:A50) A5和A50之间的第五行？ 基于： 将A9：A54replace为Range，将5replace为n，以便进行特定查询。 只有那些部分更改答案将保持不变，即使您删除范围以下的行。

Excel VBA比较两个工作表并输出特定的单元格到一个新的

我一直在尝试几个小时来做​​到这一点，但不是在VBScript的Excel的专家，我想我需要一点帮助。 这就是我所反对的。 我有两个不同的工作表，其中包含一些相同的信息。 WORKSHEET1 Section/Dept City Building SVD User Name Item Short Code Item Full Name SUPPLIER_SC Serial Number IP Address Product Class Product Item Status BT&IT- WINNIPEG GATEWAY CO IT NETWORK CHK0639V1JX 07JACM401093000MSYS000 CISCO WNPIMBTVBBN-DSTH 1.2.3.4 SWITCHES 3550-24 ACTIVE WORKSHEET2 Hostname Management IP Device Type Vendor Model Software Version Serial Number Location In Site […]

在Excel表格中使用vb.net进行范围select

这是我的代码： Dim saveFileDialog1 As New SaveFileDialog() saveFileDialog1.Filter = "Excel files (*.xls)|*.xls" saveFileDialog1.Title = "Save File" saveFileDialog1.RestoreDirectory = True If saveFileDialog1.ShowDialog() = DialogResult.OK Then Try Dim ExcelApp As New Microsoft.Office.Interop.Excel.Application() ExcelApp.Application.Workbooks.Add(Type.Missing) ExcelApp.Cells.HorizontalAlignment = XlHAlign.xlHAlignLeft ' Change properties of the Workbook ExcelApp.Columns.ColumnWidth = 15 ' Storing header part in Excel For i As Integer = 1 To […]

更新了VBA代码，仍然给我一个下标超出范围的错误

这段代码仍然给我一个下标错误 Sub importData2() ChDir "C:\Users\Desktop\Java" Dim filenum(0 To 10) As Long filenum(0) = 052 filenum(1) = 060 filenum(2) = 064 filenum(3) = 068 filenum(4) = 070 filenum(5) = 072 filenum(6) = 074 filenum(7) = 076 filenum(8) = 178 filenum(9) = 180 filenum(10) = 182 Dim sh1 As Worksheet Dim rng As Range Set rng = […]

范围和数组在VBA转换时，他们想要的。 这是怎么回事？

VBA中的Range对象非常奇怪。 这是我的练习代码： a = ActiveSheet.Range("A1:A3").Columns.Count b = ActiveSheet.Range("A1:A3") c = b.Columns.Count 一个给我1，没问题。 b给了我一个二维数组（这是烦恼的索引从1,1开始）而不是一个Range对象 c自然不起作用。 a如何调用范围对象和b是一个数组？ 我需要一个范围对象来传入我的函数！ *我试过把b声明为范围和范围（），这只是给了我一个错误。

尝试在单独的工作表中复制粘贴单元格时出现VBA运行时错误1004

我目前在我的VBA Excel 2007年代码中出现以下错误：运行时错误“1004”：对象'_Worksheet'的方法'范围'失败。 在标题中出现了这个错误的不less问题之后，我还没有find类似的情况或解决scheme来解决我的问题。 也就是说，没有声明我的variables是公开的，我不想这样做，因为我在不同的子程序中多次使用相同的variables。 错误在线提出： AccDnn.Range(Cells(2, 71), Cells(RangéeFinAcc – 1, 87)).Copy 我的代码： Private Sub SaveRedButton_Click() Dim SaveRedMssg As String, SaveRedTitre As String, SaveRedButtons As Integer, SaveRedAns As Integer Dim RangéeFinRed As Long, DrpRed As Worksheet Dim RangéeFinAcc As Long, AccDnn As Worksheet Application.ScreenUpdating = False Set DrpRed = ThisWorkbook.Worksheets("Drapeaux Rouges") Set AccDnn = ThisWorkbook.Worksheets("Acc. […]

用空格select列中的最后一个单元格

我正在尝试查找在VBA中填充数据的列中的最后一个单元格。 问题是，在范围内，有空白单元格。 如果有空白，有没有办法select带数据的最后一个单元？ 任何帮助将不胜感激！ 我已经粘贴了下面的范围定义。 If Range("BL2") <> "" Or Range("BM2") <> "" Then Set usr11 = Range("BL:BL") Set usr12 = Range("BM:BM")

从其他单元格生成一个范围excel vba

我不确定这是否可以开始。 我正在遍历一些单元格，并且在某个时刻我想要定义一个这样的范围： Set rngtmp = Range(f.Column & c.Row & ":" & g.Column & c.Row) f和g指向单个单元格，并且它们都可以（我的意思是它们工作得很好），因为我也在做一些操作，将它们作为参考并且它们工作。 c是我目前的细胞（因为我遍历所有细胞）。 范围总是空的，我不明白为什么。 f.column比g.column小

使用for循环来设置VBA中列宽的范围

我想能够使用某种循环来设置在Excel表中的列宽，所以我不必input每一列我想改变的宽度。 在这个图片的情况下，我希望所有的黑色列的宽度为0.92，绿色为0.83，橙色为7.29，我希望这些继续超过我​​在这里显示的设置范围。 以下是我使用的通用代码，但正如我所说的，我不想input每一列来改变宽度。 sub Set_Column_Width Range("E:E, I:I, M:M, Q:Q, U:U, Y:Y, AC:AC, AG:AG, AK:AK, AO:AO, AS:AS, AT:AT, AX:AX").ColumnWidth = 0.92 Range("G:G,K:K,O:O,S:S").ColumnWidth = 0.83 Range("F:F, H:H, J:J, L:L").ColumnWidth = 7.29 End sub

下标超出范围内的错误数组中的for循环vba

制作参考文件中的数据副本并使副本具有唯一性，然后将这些唯一文本置于新表格的列标题循环中。 任何人都知道为什么即时通讯“在wsDB”行中得到错误“下标超出范围”？ Sub uniqueyes() Dim wsRef As Worksheet Dim wsDB As Worksheet Set wsRef = Worksheets("reference1") Set wsDB = Worksheets("Sheet1") With wsRef .Range("F1:F60").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("I1"), unique:=True Dim arrValues As Variant arrValues = .Range("I2", .Range("I" & .Rows.Count).End(xlUp)) End With For i = 1 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row If Cells(i, 4) = "Title" Then For j = 1 […]