복사하는 방법 셀 값을 붙여 넣는 방법, 셀에 0 이상이 포함 된 경우 루프로 다른 셀에 붙여 넣기
Baskar
C74 Cell 을 복사해야합니다.
그런 다음 C85에서 C88에 붙여 넣기
조건 1 : 어떤 셀이 0보다 큰 것은 붙여 넣을 필요가 없습니다
조건 2 : 어떤 셀에 0이 있는지 다음 C74 값을 붙여 넣습니다.
* 0이있는 모든 셀에 붙여 넣을 필요가 없습니다.
* 값을 0이 포함 된 첫 번째 셀에 붙여 넣기 만하면됩니다.
최대 2 셀까지 시도합니다. 하지만 최대 4 셀까지 필요합니다.
누구든지 나를 ..
Sub TIMECALC()
ActiveSheet.Range("C74").Copy
If ActiveSheet.Range("C85").Value > 0 Then ActiveSheet.Range("C86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False Else ActiveSheet.Range("C85").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
스냅
레디 루 토나 디오
범위 For Each...를 반복하는 데 사용 하고 C85:C88, 해당 셀의 값이 0보다 크면 비교를 수행합니다. 그런 다음 참이면 C74의 내용 / 값을 붙여 넣습니다.
Sub Calc()
'Copy the cell
Range("C74").Copy
'Loop through each cell of the range
For Each cell In Range("C85:C88")
If cell.Value = 0 Then
'Paste copied value
cell.PasteSpecial Paste:=xlPasteValues
'Exit the loop
Exit For
End If
Next
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
에서 수정
- 이전 게시물：다중 명령 셸 AS 분리 된 자식 프로세스 WITH spawn () IN Node.js
- 다음 포스트：Windows 10 : "지정된 파일을 찾을 수 없습니다"폴더를 삭제할 수 없습니다.
몇 마디 만하겠습니다