저는 VBA Excel을 처음 사용합니다.
다른 셀의 값을 기반으로 셀의 모든 빈 행에 특정 값을 채우기 위해 Excel 매크로를 작성 중입니다.
예를 들어, 한 행에 있습니다.
blank1 blank2 blank3 AR blank4 blank5 DP blank6 blank 7 AR blank8 blank9 DP blank10 bl1nk11
AR 앞의 모든 공백을 "OV"로 채우고 "DP"앞의 모든 공백 셀을 "OS"로 채우고 싶습니다.
이걸 도와주세요. 큰 코드에 통합 할 수 있습니다.
감사.
일반적으로 우리는 당신이 지금까지 한 일을 게시하는 것이 좋지만 이것을 코딩 할 수 있는지 여부가 궁금했습니다. 그래서! 이 시도. 여러 행에 대해이 작업을 수행해야하는 경우 다른 루프를 추가하고 1을 변수로 변경할 수 있습니다. 도움이 되었기를 바랍니다!
Option Explicit
Sub FillEmpty()
Dim ws As Worksheet
Dim myRange As Range
Dim lColumn As Long
Dim x As Integer
Set ws = Worksheets("Sheet1")
'Find the last column that contains data
lColumn = ws.Cells.Find(What:="*", _
After:=ws.Cells(1, 1), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Column
With ws
For x = lColumn To 2 Step -1
If .Cells(1, x) = "AR" Then
.Cells(1, x - 1).Value = "OV"
ElseIf .Cells(1, x) = "DP" Then
.Cells(1, x - 1).Value = "OS"
ElseIf .Cells(1, x).Value <> "" And .Cells(1, x - 1).Value = "" Then
.Cells(1, x - 1).Value = .Cells(1, x).Value
End If
Next x
End With
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다