최근 검색
최근 검색 없음

Third Party Integration Account
가입한 날짜: 2021년 4월 16일
·
마지막 활동: 2023년 3월 14일
팔로잉
0
팔로워
0
총 활동 수
8
투표
1
플랜 수
6
활동 개요
배지
문서
게시물
커뮤니티 댓글
문서 댓글
활동 개요
님의 최근 활동 Third Party Integration Account
Third Party Integration Account님이 에 댓글을 입력함
@Joshua Bentley: it is possible to have the desired result you requested - a VB Script can do the magic for you.
Sub start_fillit()
On Error GoTo Ende:
Dim i As Long, tmp
Dim j As Long
For j = 1 To 7
For i = 1 To IIf(IsEmpty(Cells(Rows.Count, 7)), _
Cells(Rows.Count, 7).End(xlUp).Row, Rows.Count)
If Not IsEmpty(Cells(i, j)) Then
tmp = Cells(i, j).Value
Else
Cells(i, j).Value = tmp
End If
Next i
Next j
Columns("D:D").Select
Selection.Replace What:="true", Replacement:="WAHR", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Ende:
End Sub
댓글 보기 · 2017년 6월 02일에 게시됨 · Third Party Integration Account
0
팔로워
1
투표
0
댓글