我有一个简短的问题;我有两个工作簿,假设是wbk1和wbk2;我要做的是在wbk2的特定列中查找wbk1中列的每个单元格值,并将wbk2中的偏移量单元格值返回到wbk1中搜索值的相邻单元格。
有谁能帮上忙吗?顺便说一下,我可以找到下面的代码,如果它有帮助的话;'=================
Sub find1()
Dim Key
Dim Target
Dim Hnum
Dim Success
Dim wbk As Workbook
Dim Lastrow As Long
Dim one As Long
Success = False
Application.ScreenUpd
I与酒店的详细信息和列"D“有接近的医院,如PMH,SCGH,FSH。我要做的是根据同一张纸上的单元格值搜索列"D“。我下面有代码,但是它只会做我想做的事情,如果列“D”中的单元格是单个条目,例如pmh。我需要能够搜索列"D“中的所有单元格来查找文本的任何实例。
非常感谢你的帮助
`Option Explicit
Sub finddata()
Dim hospitalname As String
Dim finalrow As Integer
Dim i As Integer
Sheets("Results").Range("A4:D100
我正在尝试寻找vba代码,如果单元格A1中的值与下面的"sheet1“中的一个标题匹配,那么它将把"sheet1”中的整个列的内容带到"sheet2“中:
Sub searchdata()
Dim lastrow As Long, x As Long
lastcolumn = Sheets("Practice Associations").Cells(Columns.Count,.End(xlToRight)
For y = 1 To lastcolumn
If Sheets("Practice Associations").Cell
我试着从sheet1中搜索、复制并粘贴到sheet2。首先,我需要在sheet2中搜索列的值,然后匹配sheet1中的值,然后将整行复制粘贴到sheet2中。例如,我有下面的数据
Sheet2
A B C D E F
1200-24
1201-24
120-24
1218-24
Sheet1
A B C D E F
我希望在Google Sheets中使用一堆文本单元格,并在每个单元格中增加两倍的换行符。 所以就像这样: Hello
My name is Bob 会变成: Hello
My name is Bob 我尝试使用REGEXREPLACE公式,但似乎无法将其替换为双双换行符,似乎替换项不是采用"\n“格式,而是使用regex搜索参数。在Google Sheets中查找和替换是相似的--你可以使用正则表达式进行搜索,但是没有办法用换行符来替换。 感谢你能提供的任何帮助!
我在Google Sheets中有一个令人惊讶的棘手问题要解决,这个问题肯定不是太难,但不知何故我做不到。这是一张很大的表格,但它归结为以下内容: 两个Google Sheet列: Data 1 Data 2
aa 2008
bb 2008
cc 2009
dd 2010
ee 2011
ff 2012
bb 2013
gg 2014
cc
我在excel中创建了一个具有搜索功能的宏。所以基本上。我将把服务器列表放在Sheet3列A中,它将搜索使用Sheet1列A的服务器。一旦完成,它将在第2栏A中显示结果。然而,我在搜索通配符时有问题。例如。我想要搜索服务器"ABC123“,但它不会显示结果,因为它需要服务器的全名”not 123.def“,有人能帮我处理代码吗?
Option Explicit
Sub HostNameFinder()
Dim srchLen, hName, nxtRw As String
Dim g As Range
'Clear Sheet 2 and Copy Column Hea
我正在使用Google Sheets,并使用以下公式,没有任何问题:
=QUERY(Sheet!A:D,"select A, max(B) where not B is null group by A label A 'Client', max(B) 'Most Recent'")
显然,这是返回引用数据的列A和B,但是,我还想返回列C中的相应单元格。
示例数据:
在本例中,我希望看到单元格G2填充了"Pizza“(即来自C3),以此类推。
我使用的公式是正确的吗?我需要改变什么?
Google sheets有一个选项,可以从顶部菜单中选择,在指定字符时将文本分隔成列。可以使用逗号或其他字符。 我正在寻找一个脚本,可以为一个给定的列自动完成这一过程。有许多脚本可以做到这一点,但我还没有能够完成我的任务使用它们。 我正在使用Android上的一个应用程序,它允许我扫描二维码并将信息字符串发送到Google sheets。 信息示例如下: 464839|362|2840|927|72|617 当信息被发送到工作表时,我需要将这些信息分隔到单独的列中。这个过程应该是自动的。 我有一小段代码,我在搜索时发现它对我不起作用。 var range = SpreadsheetApp.
我试图编写一个代码来搜索列中的查询,同时在另一列中保存某些值。
示例:只要A列中的任何单元格都为100,则在B列中搜索"Text 1“
当这100变成200,然后搜索B列中的“文本2”。以此类推直到最后一排纸。
这是我的代码:
Sub SearchQuery()
Dim i As Long
For i = 2 To Sheets("New Sheet").Cells(Rows.Count, 1).End(xlUp).Row
'Criteria search
If Sheets("New Sheet"
我得到了运行时错误'1004':应用程序定义的或对象定义的错误对下面的代码(在这里,我定义lr),不能在我的生活中解决问题。
代码的目的是在定义为"ProjectDescriptionColumn“的列中搜索匹配的项目描述,并返回驻留在同一行单元格中但在定义为"ProjectCodeColumn”的列中的项目代码
任何帮助都非常感谢。
Dim ProjectDescriptionColumn As Long
Dim ProjectCodeColumn As Long
With Sheets("Completed")
If Cells(LastR
我正在尝试编写代码,在Commandbutton2_Click上搜索文件所在的文件夹,从每个文件中的相同单元格中获取一个值,然后将这些值相加在一起。
我有这个:
Private Sub CommandButton2_Click()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Dim strFolderPath As String
Dim strToolNumber As String
Dim RingCount As Integer
RingCount = 0
strToolNumber =
我可以复制一个模板,并使用以下代码根据列表进行重命名。但是我不知道如何从表2中获取值并更新模板副本。就像在每个模板中一样,我希望根据表2列B中的列表更新单元格B3。再次在模板中,单元格C6应该从表2列c中的值更新。感谢您的支持。 Sub CopySheet()
Dim i As Long, LastRow As Long, ws As Worksheet
Sheets("Sheet2").Activate
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
Sheets("
我有一个城市列表作为搜索标准,我正在寻找相应城市的邮政编码。
A列保存所有城市,B列是邮政编码列表,D列是criteria列,用户将在其中输入要搜索的城市的名称。搜索后,相应的邮政编码将列在列E上。我在VBA中有以下内容,它只从D1获取搜索条件,但我想知道是否有一种方法可以在初始搜索后在D2上搜索条件,并逐行向下搜索,直到列D上有一个空白行。
Sub Test2()
Dim Find As String
Dim finalrow As Integer
Dim i As Integer
Find = Sheets("Test").Range(
我正在用Excel编写一个脚本,其中包含一个If和一个ElseIf语句,用于数据库搜索。搜索是通过一个UserForm进行的,其中有两个字段,标记为Country和Category,脚本中定义如下:
Dim country As String
Dim Category As String
country = Sheets("Results").Range("D5").Value
Category = Sheets("Results").Range("D6").Value
搜索和提供有关被搜索国家的信息,因此,运行搜索所需的最低限度
我的Excel文件中有3个工作表。缺少(25,000行)、有效(18,000行)和匹配(空白)。
我需要比较D列中Missing和Valid的值,并将所有匹配的所有行复制到匹配的工作表中。
如果我能以某种方式做一个通配符搜索,这也是很好的,例如,雅培实验室匹配雅培实验室的方法。如果这是不可能的,那么如果有一种方法可以突出显示已匹配的行,以便我可以手动查找通配符匹配,将非常感谢。
这就是我尝试过的,我通过谷歌找到了它,但我不完全理解代码。它运行了几分钟,没有出现错误,但没有提取任何数据:
Sub CopyRows()
Dim cell As Range
Dim found As Range
我正在使用google sheets,我想将列的单元格中的文本组合成一个由"OR“分隔的单元格(例如,OR的两边都有空格
**Column A**
John
Bob
Jim
Donald
将在一个单元格中组合为"John OR Bob OR Jim OR Donald“在Google Sheets中我将使用什么公式来实现这一点?
我正在编写一个运行数据库搜索的脚本。这是通过一个IF语句来实现的,该语句包含几个条件,这些条件依赖于三个不同字段(“国家”、“类别”和“子类别”)中的用户输入。我以前已经定义过这些。
用户在这三个字段中输入的不同组合将产生不同的结果。因此,例如,如果用户不提供“国家”,则搜索将不运行,将弹出错误消息,如下所示:
For i = 2 To finalrow
If country = "" Then
Sheets("Results").Range("B10:J200000").Clear
MsgBox
我是Google Apps脚本的新手,所以请耐心等待。
我正在从Google Sheets上的一家银行收集每日利率,我正在使用以下代码为A5中包含的利率添加新行:F5,其中列A包含日期。
function recordHistory() {
var ss = SpreadsheetApp.getActiveSpreadsheet();
var sheet = ss.getSheetByName("Interest Rates");
var source = sheet.getRange("A5:F5");
var values = source.
我试图做一个循环,如果条件为真,单元格n索引(E列)与单元格的n+1索引相同,则将列C值复制到列G中。
不幸的是,最后一个C列值没有复制到列G中,所以我只是用一个字符串来解析它:
Sheets("Report KIT").Range("G" & n) = Sheets("Report KIT").Range("C" & n).Value
过了一会儿。有人能帮忙吗?谢谢
Sub Macroarea1()
Dim ws As Worksheet
Dim LastRow As Long
Dim LastRow1
我有一个表,我想搜索列中是否有值。如果它不存在,我想在另一个表中搜索它。我试过这个:
SELECT *,
CASE(WHEN student = 'ted' THEN 'ted'
ELSE ( SELECT student
FROM dbo.class2
WHERE student= 'ted')) END AS ISOK
from dbo.class1
因此,如果dbo.class1.student不是'ted‘,则ISOK列将从dbo.class2.stude