Tag: 范围

Excel IFS公式 – 数字的范围: 我在单元格AB8有一个值，我想有条件地返回一个状态，取决于在1到30之间需要哪个值。我想节省时间，而不是单独input1-9的分数来变成“新兴”（等等）有没有办法让我可以把范围？ IFS(AB8=1,"EMERGING",AB8=2,"EMERGING",AB8=3,"EMERGING",AB8=4,"EMERGING",AB8=5,"EMERGING",AB8=6,"EMERGING",AB8=7,"EMERGING",AB8=8,"EMERGING",AB8=9,"DEVELOPING",AB8=10,"DEVELOPING",AB8=11,"DEVELOPING",AB8=12,"DEVELOPING",AB8=13,"DEVELOPING",AB8=14,"DEVELOPING",AB8=15,"DEVELOPING",AB8=16,"DEVELOPING",AB8=17,"SECURING",AB8=18,"SECURING",AB8=19,"SECURING",AB8=20,"SECURING",AB8=21,"SECURING",AB8=22,"SECURING",AB8=23,"SECURING",AB8=24,"SECURING",AB8=25,"READY",AB8=26,"READY",AB8=27,"READY",AB8=28,"READY",AB8=29,"READY",AB8=30,"READY")

VBA复制Excel范围到不同的工作簿: 我正试图find一种方法来将范围复制到另一个工作簿，在这种情况下A6：J21，在一个工作簿中。我认为这将是如下的东西… currentWorksheet = xlWorkBook.Sheets.Item("Command Group") excelRange = currentWorksheet.Range("A6:J21") excelDestination = newXlSheet.Range("A6:J21") excelRange.Copy(excelDestination) 但它给我一个excelRange.Copy(excelDestination)的错误。下面的代码按预期运行，所以我不知道我在哪里错了。 Dim xRng As Excel.Range = CType(currentWorksheet.Cells(7, 7), Excel.Range) Console.WriteLine(xRng.ToString) Dim val As Object = xRng.Value() testString = val.ToString Console.WriteLine(testString) newXlSheet.Cells(1, 1) = testString

'运行时错误1004：对象'_Global'的方法'范围'失败'只有xls文件，但不包含txt或xlsx文件: 我有这段代码search一个短语，将范围设置为单元格右边的单元格，包含到最后一个数据列的单元格，并使用条件格式设置单元格。这段代码对于txt文件和xlsx文件都能正常工作，但是这个短语 Set rngHeaderAs 得到运行时错误1004：当我在xls文件上运行代码时，对象'_Global'的方法'Range'失败。查找部分中的短语肯定存在，如果我将xls文件保存为xlsx文件，则代码将完美运行。代码： Sub Color_labreport_horizontal() Cells.Replace What:="n,d.", Replacement:="nd", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False On Error Resume Next 'As Set rngHeaderAs = Range("A1:ZZ200").Find("As*Arsen*", lookat:=xlPart) 'This string generates the error Set rngAs = Range(rngHeaderAs, rngHeaderAs.End(xlToRight)) AsAddress = rngHeaderAs.Address(False, False) Dim Ul1As As Double Ul1As = 8 Dim Ul2As As Double Ul2As […]

VBA，为sorting数据编码一个dynamic范围（列）: 我是一个vba中的新手，我被困在一些应该相对容易的东西：我有一个marco指定标题名称的列号： Dim onomata As Integer 'find column named Name of ship Set acell = rows(1).Find(What:="Name of ship", LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not acell Is Nothing Then onomata = acell.Column End If 现在我想根据这个列对数据进行sorting： Cells.Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range( *this is where I want to introduce the column* ), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= […]

Excel VBA计算来自多个范围的不同值: 我想找出不同的值（文本）在3个不同的范围。我想我find了一个在线的方式，但它给了我一个错误。这里是代码; Dim MyDict As Object, MyCols As Variant, OutCol As String, LastRowXY_2 As Long Dim XY_A As Variant, I_XY As Long, MyData_XY As Variant Set MyDict = CreateObject("Scripting.Dictionary") MyCols = Array("P", "S", "V") OutCol = "AN" For Each XY_A In MyCols LastRowXY_2 = Worksheets(Ders_Sheet_Adi).Cells(Rows.Count, XY_A).End(xlUp).Row MyData_XY = Worksheets(Ders_Sheet_Adi).Range(XY_A & "22:" & XY_A & […]

使用范围variables: 尝试将Range用作variables时遇到问题。继续获取“select范围类失败”错误的方法。任何想法，我可能在这里做错了吗？ Dim OnRent As Workbook Dim MattFile As Workbook Dim Rng As Range Set OnRent = Workbooks("On-Rent 09-22-17.xlsx") Set MattFile = ThisWorkbook Set Rng = ActiveSheet.Range("B101") OnRent.Activate ActiveSheet.PivotTables("PivotTable1").PivotFields("CHKOUT_POOL"). _ ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("CHKOUT_POOL").CurrentPage _ = "LOS ANGELES" Range("B15:L108").Copy MattFile.Activate Sheets("LAX Data").Activate Rng.Select ActiveSheet.Paste

build议使用EXCEL公式来查找连续的第一个和第二个已定义的单元值更改: 我需要一个正则expression式的build议（没有VBA /没有数组公式），请执行以下操作：有以下数据集：我需要一个公式进入列A和B，并将第一个和第二个月的变化从1到2相应地返回给每一行。在可search范围内只有1个和2个被使用。

excel中多个唯一编号对之间的平均范围: 假设我在excel中有以下数据：对于每一行，我想知道每对唯一variables之间的平均范围是多less。有没有办法做到这一步，而不必手动计算每个数字对之间的范围？以第一行为例，唯一对和它们的范围如下： 8 – 5 = 3 8 – 6 = 2 6 – 5 = 1 The average range is (3 + 2 + 1)/3 = 2. 所以输出结果应该是2，但是我想知道是否有办法在一个公式中做到这一点

在范围函数中使用variables删除内容: 运行时错误'1004'对象'_Global'的方法'范围'失败只要我在下面的顺序执行，我会得到以上错误。我的目标是删除当前单元格范围内所有单元格的内容，直到C200。 Posit2.Select Sheets("Sheet1").Cells(53, 1).Value = ActiveCell.Address ' $C$52 is output Range(ActiveCell.Address, c200).ClearContents