查找單元格文本，在另一片，然後用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

回答

相關問題