我正在开发一个工具,在这个工具中对特定的表进行过滤,输出到另一个工作表,并将其提交给word。过滤后的部分给出并提交给word。这是介绍用的。
当前目标:通过将数字分割成两个部分,并将一个部分提交给附加列,指定过滤后的数据。
过滤器代码:
Sub Unique_Values_Worksheet_Variables()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim sws As Worksheet: Set sws = wb.Worksheets("export")
Dim dws As Worksheet,
我试图在Excel中循环遍历特定的工作表,并在最后一行数据中粘贴A1中的公式。下面的代码适用于列出的第一个工作表,但是它不会转到后续工作表中。
Sub Refresh_ActivesheetB36()
Dim lastrow As Long
Dim MyArray As Variant
Dim i As Integer
Application.ScreenUpdating = False
Sheets("GroupInfo").Select
Range("B36").Select
Selection.Formula = "=COUN
在其他人的帮助下,我能够构建这个工作代码。不过,我确实需要帮助为其添加条件。
在将工作表移动到新文件之前,必须先检查同名文件是否已经存在。如果确实存在,那么它应该只更新它(在底部粘贴新数据)。如果不存在,则应该创建一个(这就是这段代码所做的)。
Sub ExportSheets()
' Export segregated sheets to individual workbooks
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sPath As String, sAddress As
在这个论坛的大量帮助下,这段代码被generated.The高级过滤器完美地工作了,但复制项目周围的框架/表格却不能正常工作。 但不幸的是,它不工作,项目是与边界。总是放在前三行。有人知道为什么吗? Sub Unique_Values_Worksheet_Variables()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim sws As Worksheet: Set sws = wb.Worksheets("export")
Dim dws As Worksheet
Set dws = wb.Wor
我试图比较两个选项卡中的单元格(主选项卡和测试),如果测试中有变化,那么颜色在任何颜色中都会发生变化,并将其复制并粘贴到主文件中。
更新:
这是必需的代码
Sub test()
Dim varSheetA As Variant
Dim varSheetB As Variant
Dim strRangeToCheck As String
Dim iRow As Long
Dim iCol As Long
Dim jRow As Long
Dim jCol As Long
strRangeToCheck = "A1
试图获得一个快速报告构建的工作过滤器--如所示。
我现在的代码是这样的:
Option Explicit
Sub GetData()
'Clear data field
Sheets("Filter").Select
Range("B10").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
'Advanced F
我正在处理一个宏,它使用VBA来完成索引匹配函数。vba出错,说我有一个类型不匹配,但是我之前在脚本中以类似的方式使用了相同的变量,并且运行没有任何问题。查找值在另一个名为"Items“的工作表中。代码片段如下所示。任何帮助都将不胜感激。
Sub Test_1
Dim ws As Worksheet, ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet
Dim wb As Workbook
Dim i As Long, j As Long
Dim r As Range, cell As Rang
是否可以在mysql中建立一个连接,以便当且仅当左表中的相应值不存在时才返回右表中的值?
例如
SELECT * FROM
(SELECT userid,status FROM date_status WHERE date='20-03-2012') ds
JOIN
(SELECT userid,status FROM default_weekday_status WHERE day='tuesday') dws
ON
ds.userid=dws.userid
如果date_status中的行存在,我希望返回date_status.st
我需要使这个宏更有效和更快。我的解决办法非常非常缓慢。可能有超过100 k行
Sub VlookupPOR()
Dim PorWs As Worksheet, InDataBodyWs As Worksheet
Dim PorLastRow As Long, InDataBodyLastRow As Long, x As Long
Dim dataRng As Range
Set PorWs = ThisWorkbook.Worksheets("POR")
Set InDataBodyWs = ThisWorkbook.Worksheets("InDataBod
我的VBA代码有一点小问题。我从不同的Excel文件合并了多个工作表。所有这些文件都有一个名为" Index“的工作表,所以如果我合并这些工作表,我会得到Index,Index (1),Index (2)..
我想要做的是,我想从以Index开头的工作表中复制第2行中的所有值(甚至空白单元格),因为我也合并了这些文件中的其他工作表,但我只想从以Index开头的工作表中复制第二行。
到目前为止,这是我的代码(只有复制代码)
Sub Samenvoegen()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksh
我想写一个n维直方图类。它的形式应该是包含其他仓位的仓位等,其中每个仓位包含最小和最大范围,以及指向下一维仓位的指针
bin的定义如下
template<typename T>
class Bin {
float minRange, maxRange;
vector<Bin<either Bin or ObjectType>> bins;
}
这个定义是递归的。因此,在运行时,用户定义直方图的维度
so if its just 1-dimension, then
Bin<Obj>
while 3-dimensions
Bin<Bin&l
我正在尝试创建一个比较两个工作簿的公式。
我得到:
运行时错误9.
以下是代码:
Sub Compare()
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = Workbooks("Testing1.xlsx")
Set wb2 = Workbooks("Testing2.xlsx")
'Setting variable to represent last row and last column
lRow = Cells(Rows.Count, 1).End(xlUp).Row
lCol = Ce
Option Explicit
Sub test()
Dim rg As Range
Dim name As String
Dim name2 As String
Dim wsh1 As Worksheet, wsh2 As Worksheet
Dim i As Long
Set wsh1 = ThisWorkbook.Worksheets("Database")
Set wsh2 = ThisWorkbook.Worksheets("Løbs-skabelon")
On Error GoTo 0
Appl
标题可能有点混乱,但我想做的是:
我有函数输入x,t,输出y(即y= f(x,t)),以及一组范围xr,tr和我想做的
v = zeros(1,length(xr)-1)
for kk=1:(length(xr)-1)
ix = x >= xr(kk) & x < xr(kk+1) & t >= tr(kk) & t < tr(kk+1)
v(kk) = sum(y(ix));
end
这非常慢,而执行几乎相同操作(除了它对间隔中的条目数求和,而不是函数输出)的histc非常快。如何才能更快地实现这一点?我试着使用arrayfun,但
我必须将行从工作表A复制到工作表B。然而,我必须粘贴到交替行中,如下所示:
1 st row(Sheet A)-- 1 st row (Sheet B)
2nd row (Sheet A) --> 3rd row (Sheet B)
3rd row (Sheet A)--> 5th row(Sheet B)
这个是可能的吗?
谢谢你的帮助。
我是初学者。如何在方法表(“”).Range(“”)中使用value?.Select我的代码如下。 Dim value As String
ThisWorkbook.Sheets("Arkusz1").Range("B2").Select
value = ThisWorkbook.Sheets("Arkusz1").Range("B2").value
Sheets("Welding").Select
Sheets("Welding").Range(value & "50"
我有一个包含一个主索引表和一个模板表的工作簿。
我的索引表里有信息。
主表中的每一行都应该生成一个新的工作表。
我想复制模板中的所有数据,但从主表的每一行的名称。
我可以创建具有正确名称的工作表,但其中没有数据。
这是VBA代码,用于生成一个具有正确名称的新工作表。我需要把所有的数据拷贝到所有的新床单上。它来自 by
'Name macro
Sub CreateSheets()
'Dimension variables and declare data types
Dim rng As Range
Dim cell As Range
'
对于每个列标题,获取每列中的数据,并在一行中创建一个新的工作表。
为了澄清和提供更多的上下文,我目前有一个表格,格式如下:
Header A | Header B | ...
--------------------------
Data A1 | Data B1 | ...
Data A2 | Data B2 | ...
...
我想取得的成果如下:
For each column header
Create a new worksheet with the header name
Fill the worksheet with the following table:
如何在代码中创建范围,并使用这些名称范围来查找平均值,然后将该值显示到特定的单元格中
我在尽我最大的努力!
我的守则:
Sub NameRanges()
Dim HourlyConsumption As Range
Set HourlyConsumption = Range("B2:B251")
ThisWorkbook.Names.Add name:="HourlyConsumption", RefersTo:=HourlyConsumption
Dim Replenishment As Range
Set Replenishment = Range(&
我在同一个文件夹中有10个excel文件。我正在尝试将活动工作表的单元格A2从这10个excel文件中的每一个复制到另一个excel文件的工作表中--让我们调用这个EX2文件。EX2有一个工作表名产品,我希望在这个表的A列末尾有新的10个值。
下面是我的密码。我试过好几次了,但都没成功。
Dim Path As String
Dim Filename As String
Dim WB As Workbook
Dim RowCnt As Long
Path = "C:\Users\***\Documents\Folder 10\"
我正在尝试从文件TestA.xlsx中删除所有筛选器。 有时会在TestA.xlsx中启用过滤器。如果之后打开TestB,并不是所有数据都复制到文件TestB中。 因此,如果“文件A”是打开的,而你打开了“文件B",那么”文件B“就会检查”文件A“是否处于活动状态。如果它处于活动状态,它会将工作表TestA中的“文件A”复制到工作表TestB中的“文件B”中。 Private Sub Workbook_Open()
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks("Test.xls
当我试图关闭一个用excel打开的文本文件时,我一直收到运行时错误9。为了保持简短,我删除了其余的代码。我在网上看了一下,我看不出出了什么问题。请帮帮忙。
Sub ImportBGSGeol()
'
' ImportBGSGeol Macro
' Import a text file of geology codes from BGS geoindex and process
'
' Define variables
Dim wkb As Workbook
Dim ws As Worksheet
Dim FName As String
App
我有一个有23列和不同数量行的数据集。我需要根据一定数量的标准(包括通配符)自动过滤数据,然后将过滤后的结果复制到相应的工作表中(也就是说,带有筛选条件SH00*的数据应该在sheet SH00中--这些表与没有通配符的条件具有相同的名称)。要过滤的数据列在第一栏中。这是我到目前为止所掌握的:
Sub Filter_Data()
Sheets("Blokkeringen").Select
'Filter
Dim dic As Object
Dim element As Variant
Dim criteria As Variant
Dim ar
我有这段代码,我希望它能在下一行工作到最后一行,
Sub Index_Match()
Dim result As Variant
Range("P3").Value = [INDEX('Sheet1'!K:K,MATCH(1,(L3='Sheet1'!G:G)\*(Q3='Sheet1'!J:J),0))]
Debug.Print result
End Sub
代码必须更新每一行。
Range("P4").Value = [INDEX('Sheet1'!K:K,MATCH(1,(L4
我有工作表,有两个填充的列,a& b,尊重范围(“E1”)和("E2")的标准。
我需要使用VBA来搜索到行的末尾。
如果满足条件,将选择带整行的单元格。但是,我无法制作一个msgbox来提醒用户没有符合条件的数据。
代码如下,我很感激给出的任何建议。
Sub Testing()
Dim c As Range
Dim rngG As Range
For Each c In Intersect(ActiveSheet.UsedRange, Columns("a"))
If c = Sheet1.Range("
我试图从不同的表格中提取数据。
引用不起作用。
Sub Summary_LPI()
Dim wkSht As Worksheet, wsC As Worksheet, rngSearch As Range
Dim shNCell As Range
Set wsC = Sheets("Summary")
Set rngSearch = wsC.Range("A2:A60")
For Each wkSht In ThisWorkbook.Worksheets
'find the sheet name cell in rngSe
我目前正在使用Excel开发脚本生成器,需要使用大于255个字符的查找和替换文本。我正在使用下面的代码来替换生成脚本中的一些单词
Sub SingleScripts(qno As String, qvar As String, qtext As String)
Dim LastRow As Integer
Worksheets("CodeGenerate").Activate
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("single_sample").Range(&