VBAサンプル

sengetu　の処理見直し

if sengetu = 0 then

sengetu = 12

endif

残課題

‘B4がブランク非許容列

Range("b4").Select
Selection.End(xlDown).Select

Dim row As String
Dim col As String

row = ActiveCell.row
col = ActiveCell.column

‘+1は、ブランク非許容列から転記予定のシートまでの間隔

Cells(row, col + 1).Select

Range(Cells(5, 3), Cells(row, col + 1)).Select
Selection.Copy