シート「GROUP」を並べ替えて「YTP」シートと同じようにフォーマットするプロジェクトがあります。しかし、私はそれを解決して時間内に作る方法がわかりません。私の問題は、シートグループのデータをコピーした後にYTPシートに空の行がある場合、YTPシートの行全体を削除する方法です。私は次のようなコードを開始しました：
コード
Option Explicit
Sub Copy()
'Declaration for copying the entire column of J
Dim lastrow As Long, erow As Long
Dim sRange As Range
Dim sCrange As Range
Dim cell As Range
'End Declare
Set sRange = Sheet2.Range("J10:J350")
Set sCrange = Sheet4.Range("J5:J360")
For Each cell In sRange
If Not IsEmpty(cell) Then
sRange.Copy sCrange
End If
Next cell
End Sub
これはグループとYTPシートの画像です
エクセルファイルを見たい方はコメントしてください。ここに添付します。みんな、助けてください。
このコードを試してください
Sub Copy()
'Declaration for copying the entire column of J
Dim lastrow As Long, erow As Long
Dim sRange As Range
Dim sCrange As Range
Dim sSheet as Worksheet
Dim sCSheet as Worksheet
Dim i as Integer
Dim cell As Range
'End Declare
Set sSheet = Worksheets("YTP")
Set sCSheet = Worksheets("GROUP")
sSheet.Range("J10:J350").Copy
sCSheet.Activate
sCSheet.Range("J5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
lastrow = 360
For i = 10 to lastrow
If sSheet.Range("J" & i).Value = "" then
sSheet.Rows(i).delete
i = i - 1
lastrow = lastrow - 1
End If
if i > lastrow then Exit For
Next i
sSheet.Activate
End Sub
この助けを願っています。
ありがとう
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加