剪切串並粘貼到一個不同的範圍：VBA

Question

我需要VBA代碼

• 切割的字符串的一部分，直到字「HS」，在列A中
• 的每個小區將該部分粘貼到上一行的列「N」中。

某些字符串在「HS」之前沒有任何內容，所以代碼不應該爲這些字符運行。我正在處理的工作表有成千上萬行。我不確定如何做到這一點...

Answer 1

這是一些註釋的代碼，它實現了你想要的。請注意，您可能會發現this answer用於查找最後一行。

此代碼避免實際使用剪切和粘貼，因爲這是慢。相反，它直接訪問單元格的值。

Sub CopyBeforeHS() 
    Dim r As Long, HSindex As Long 
    ' There are many ways to find the last row, or just replace 100 manually here 
    ' You must start at row 2, as r-1 is used in the loop 
    For r = 2 To 100 
     ' Your sheet name here... 
     With ThisWorkbook.Sheets("Sheet1") 
      ' Get location of "HS" in each cell in column A 
      HSindex = InStr(.Range("A" & r).Value, "HS") 
      ' If HS was found AND it wasn't the first characters 
      If HSindex > 1 Then 
       ' Copy cell text from before "HS" to previous row, column N 
       .Range("N" & r - 1).Value = Left(.Range("A" & r).Value, HSindex - 1) 
       ' Remove the same text from column A 
       .Range("A" & r).Value = Mid(.Range("A" & r).Value, HSindex) 
      End If 
     End With 
    Next r 
End Sub