Tag: 取消select

如何从活动单元格中select未知范围？: 我有一个数据块和空行之间的电子表格。块大小不一。我有一个公式，自动填充原始数据，然后将其复制到其他空行，直到它到达下一个块。我如何得到它select下一个数据块，以便我的循环可以工作，因为块的大小总是在变化？什么是理想的是某种当前区域属性，排除活动单元格后面的数据，因为当前状态中的循环将活动单元格作为每个迭代结束时新块中的第一个单元格。

如何根据表格中的行数select一系列单元格？: 我目前有多个数据表，其中包含所有这些信息的AI列，我想在每个列中select一个单元格范围。列A取决于纸张在150行到450行之间变化。我想select列AI，但只能通过列A中find的最后一行。我使用最后一行function： LastRow = Range("A65536").End(xlUp).Row 如何让macrosselect列到最后一行？我希望它的function，如果它写： Range("A1:ILastRow").Select “LastRow”是最后一列的编号。谢谢，詹姆斯

在SQL中用“/”分隔同一列中的多个值: 我在Excel表中有一个表，我正在使用Tableau中的自定义SQL选项。该表具有以下结构： Project Identified Led Fee 1 Employee1 Employee2 100000 2 Employee2 Employee3 200000 3 Employee1 / Employee2 Employee1 300000 我正在使用下面的代码来获得下一个结构： select [Identified] as Name, [Project], 'Identified' as Contribution, [Fee] union select [Led], [Project], 'Led', [Fee] Name Project Contribution Fee Employee1 1 Identified 100000 Employee1 3 Identified 300000 Employee1 3 Led 300000 Employee2 1 Led […]

你将如何删除Excel中的行，使范围（select，ActiveCell.SpecialCells（xlLastCell））。select不会select现在空的行: 问题是我有一个函数删除包含特定文本的行： Sub DeleteRowsContaining(text As String) Dim Firstrow As Long Dim Lastrow As Long Dim Lrow As Long With ActiveSheet 'Set the first and last row to loop through Firstrow = .UsedRange.Cells(2).Row Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row 'We loop from Lastrow to Firstrow (bottom to top) For Lrow = Lastrow To Firstrow Step -1 'We check the values […]

根据范围search结果复制单元格值: 我是VB的新手，所以我相信在这里很容易解决这个问题。我有许多具有相同布局的工作簿。我需要一个macros，我可以通过对话框input一个值，并search所有工作簿和工作表中的input值。 find该值后，将该行中指定列（可用代码修复）的工作簿，工作表，单元格位置，单元格值和单元格值复制到新的工作表中。我从互联网上偷了一些代码，除了最后一点从列中复制单元格值。我希望这是有道理的，有人可以帮忙。当前代码： Sub Ladderload() Dim fso As Object Dim fld As Object Dim strSearch As String Dim strPath As String Dim strFile As String Dim wOut As Worksheet Dim wbk As Workbook Dim wks As Worksheet Dim LRow As Long Dim rFound As Range Dim strFirstAddress As String Dim Target […]

填写工作表function的单元格颜色（基于select的案例和范围）: 下面是我创build的工作表（Dragdown）函数的工作表设置，试图显示一个颜色范围。我的问题是如何执行一个函数，我的工作表单元格颜色更改基于（Select Case Statement）与我当前的Work_Sheet更改/设置性能事件绑定。我下面的当前代码只为所有单元格生成一种颜色 Peromance_Message（具有可变参数的工作表function设置）非首选平均名称（$ D $ 42 – 文本string）列标题下面的非首选平均（D43-单一）数据（数据开始）首选平均名称（E $ 42-文本string）列标题首选的平均（E43-单一）数据（数据开始） D＆E右边的列（我下拉Performance_Message公式） MODULE Public Function Performance_Message(NonPreferredAvg As Single _ , NonPreferredAvgname As String _ , PreferredAvg As Single _ , PreferredAvgname As String _ , Optional Outputtype As String _ ) As Variant Dim performancemessage As String Dim averagedifference […]

VBA – 列表框删除所有select和下一步全选: 有人可以告诉我为什么这段代码不会读代码中的第一个。我试图删除我手动select的列表上的所有项目，这是工作，但之后，我希望它select所有我可以写一个工作表的洞列表，但不pipe我做什么我可以'在我从列表中删除项目后，将其全部选中。事实上，它不会读取第一个下一个我怎么知道，因为如果我设置清除function之前，它将清除工作表，但不是如果我把它放在下一个代码之后。 Private Sub CommandButton2_Click() For listIndexCount = 0 To ListBox1.ListCount If listIndexCount >= ListBox1.ListCount Then Exit Sub End If If ListBox1.Selected(listIndexCount) Then ListBox1.RemoveItem (listIndexCount) listIndexCount = listIndexCount – 1 End If Next listIndexCount Sheets("Courses_calc").Cells.Clear For i = 0 To ListBox1.ListCount – 1 ListBox1.Selected(i) = True Next i End Sub

在Excel中给定一组值，如何在列中find它们？: 给定子集A： selection 1 2 3 4 5 Excel表单： col1 col2 and so on… 1 kuku 300 pupu 4 abcd 22 sfds 900 aqww 我想从工作表中select“select”内容，就像我们在SQL中所做的那样： select * from excel_sheet where col1 == selection 我怎样才能在Excel中做到这一点？

Excel VBA – 如何select与以前的单元格中的值相对应的范围？: 我有一个非常大的数据集，包括在NAS的飞机的开始和停止时间。我想创build一个macros来在Excel中对这些数据进行可视化表示，如下所示：（注意：这个图片使用假数据）正如你所看到的，我已经手动完成了前7行，但是有几个数据文件每行有2500+行，这使得这个过程变得单调乏味。我试图创build一个macros，但我很困惑如何search并select适当的范围来突出显示。以下是我到目前为止： Sub autofill() Dim rng As Range Dim row As Range Dim cell As Range 'set the range of the whole search area Set rng = Range("A2:HJ121") For Each row In rng.Rows Dim callsign As Variant Set callsign = cell("contents", "A" & row) Dim valstart As Variant Set valstart = […]