查找单元格文本，在另一片，然后用VBA

抵消我想要的东西添加到我的VBA代码，这样我就可以搜索来自工作表在一个名为工作表的文字命名为“拉”，单元格“A2”“ HourTracker“在列”A“中，并向右偏移1个单元格。在我找到的这个单元格中，我想粘贴“拉”工作表中单元格“Z1”的内容。查找单元格文本，在另一片，然后用VBA

我每次运行宏的“拉”的内容发生变化也是如此细胞“A2”和“Z1”。 “A2”将包含我可以在“HourTracker”表的A列中找到的单词，“Pull”表单中的“Z1”将具有需要在“HourTracker”中找到的单元格旁边的单元格中的总小时数”。

Sub Function_DataSpecial() 

Application.DisplayAlerts = False 

Worksheets("Pull").Activate 
    Columns("A:BB").Select 
    Selection.ClearContents 
With ActiveSheet.QueryTables.Add(Connection:="URL;" & 
Sheets("Control").Range("B9").Value, Destination:=Range("A1")) 
.Name = "Pull" 
.FieldNames = True 
.RowNumbers = False 
.FillAdjacentFormulas = False 
.PreserveFormatting = True 
.RefreshOnFileOpen = False 
.BackgroundQuery = True 
.RefreshStyle = xlInsertDeleteCells 
.SavePassword = False 
.SaveData = True 
.AdjustColumnWidth = True 
.RefreshPeriod = 0 
.WebSelectionType = xlEntirePage 
.WebFormatting = xlWebFormattingNone 
.WebPreFormattedTextToColumns = True 
.WebConsecutiveDelimitersAsOne = True 
.WebSingleBlockTextImport = False 
.WebDisableDateRecognition = False 
.WebDisableRedirections = False 
.Refresh BackgroundQuery:=False 
End With 

Range("A:A").Select 
    Selection.TextToColumns _ 
    Destination:=Range("A1"), _ 
    DataType:=xlDelimited, _ 
    TextQualifier:=xlDoubleQuote, _ 
    ConsecutiveDelimiter:=False, _ 
    Tab:=False, _ 
    Semicolon:=False, _ 
    Comma:=True, _ 
    Space:=False, _ 
    Other:=False 

ActiveSheet.Range("A:R").RemoveDuplicates Columns:=Array(2, 5), Header:=xlYes 

Range("Z1").Select 
ActiveCell.FormulaR1C1 = "=SUM(C[-15])"

一切都下到ActiveSheet.Range（“A：R”）部分是从网站拉表和排序表及以下，我总结小时数列，并把总和“ Z1" 。 “HourTracker”工作表中的“A”列不会更改。

我是新来的网站，所以请让我知道你所有可能需要的其他资料，以帮助，谢谢！

来源

2017-05-05 J Reid

因此，经过一番搜索，我添加了以下内容到我的宏，它完美的作品。

Range("Z1").Select 
ActiveCell.FormulaR1C1 = "=SUM(C[-15])" 
Range("Y1").Select 
ActiveCell.FormulaR1C1 = "=R[1]C[-24]" 

Range("Z1").Copy 

Dim FindString As String 
Dim Rng As Range 
FindString = Sheets("Pull").Range("Y1").Value 
If Trim(FindString) <> "" Then 
    With Sheets("HourTracker").Range("A:A") 
     Set Rng = .Find(What:=FindString, _ 
         After:=.Cells(.Cells.Count), _ 
         LookIn:=xlValues, _ 
         LookAt:=xlWhole, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False) 
     If Not Rng Is Nothing Then 
      Application.Goto Rng, True 
     Else 
      MsgBox "Nothing found" 
     End If 
    End With 
      ActiveCell.Offset(0, 1).Activate 
      Selection.PasteSpecial xlPasteValues

我有细胞“Y1” = A2，复制的小时（Z1）中，然后使用查找字符串来搜索小区“Y1”的上“拉”片材的最后一个值。一旦我这样做了，我使用活动的单元格偏移量来选择它右侧的单元格并粘贴该值。

我希望这可以帮助其他人试图做类似我的东西！

来源

2017-05-05 16:14:38

查找单元格文本，在另一片，然后用VBA

回答

相关问题