Excel VBA設置單元格作爲變量

我已經閱讀了導致我將第一行更改爲變量的文章，但我還需要「n94」作爲變量。它將始終是7行和N列。我必須在將來重新編輯這6行等......試圖連接備註筆記及其與數據量的時間過長。Excel VBA設置單元格作爲變量

Range("B101").Select 
Selection.Copy 
Range("N94").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Rows("95:101").Select 
Application.CutCopyMode = False 
Selection.Delete Shift:=xlUp

感謝您的幫助

來源

2014-01-30 NoNo

它不清楚你有什麼，你想要做什麼 – brettdj

我想細胞B101和特殊粘貼複製的值單元格N94然後刪除行95-101。之後，我想選擇B列中的另一個單元格並重復該過程。 – NoNo

這將永遠是7個排隊和N型柱

這是你想什麼呢？

Sub Sample() 
    Dim ws As Worksheet 
    Dim rng As Range 

    '~~> Replace this with the actual sheet name 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     Set rng = ActiveCell '<~~ From Comments below 

     If (rng.Row - 7) < 1 Then 
      MsgBox "Cannot Paste. Row Out of bounds" 
      Exit Sub 
     End If 

     rng.Copy 

     .Cells(rng.Row - 7, "N").PasteSpecial _ 
     Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 

     '~~> Delete the rows. For example Rows("95:101") 
     .Rows((rng.Row - 6) & ":" & rng.Row).Delete Shift:=xlUp 
    End With 
End Sub

來源

2014-01-30 09:32:05

就是這樣。但我想單擊單元格並讓宏運行。如果我必須改變像B101那樣的部分，那需要比手動完成更長的時間。如果這可能是一個變量，我會非常高興:)我有大約6000行，我一直在手動做。 – NoNo

將'.Range（「B101」）'改爲'ActiveCell' :) –

幾乎在那裏：我設置了ws =「ASM-Concatented Address w w notes」，當我運行它時，我得到一個輸入框來創建一個表並選擇我的數據單元格。〜不確定它的意思。 – NoNo

Excel VBA設置單元格作爲變量

回答

相關問題