열 머리글이 특정 텍스트 인 경우 열의 텍스트 교체
리즈 H
날짜에 대한 장소 가용성을 나타내는 보고서가 있습니다 (아래 레이아웃 참조).
정보는 종일 / 아침 / 오후로 제공되며 사용하는 경우 예약 됨으로 표시됩니다.
설정을 제외하고는 일요일에는 장소가 사용되지 않습니다. 그러나이 데이터는 여전히 하루 종일 가용성으로 제공되므로 나중에보고하는 데 사용되는 계산을 엉망으로 만듭니다 (실제보다 더 많은 가용성을 제공 한 장소처럼 보일 수 있음).
다음 두 가지 코드가 이미 있습니다.
Sub Find_replace()
Range("A:AAA").Select
Selection.Replace What:="Fullday", Replacement:="***Full", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
이렇게하면 "종일"이있는 셀을 검색하고 전체 워크 시트에서 "*** 전체"로 바꿉니다.
Sub Sunday_widths()
Dim Range1 As Range
Dim Cell1 As Range
Set Range1 = Range("O1:AAA1")
For Each Cell1 In Range1
Select Case True
Case Celll Like "*Sun*"
Cell1.ColumnWidth = 7.5
End Select
Next Cell1
End Sub
행 1에서 "Sun"이있는 열을 검색하고이를 기반으로 열의 너비를 설정합니다.
이 두 가지를 결합하여 매크로가 맨 위 행에 Sun이있는 열을 검색하고 해당 열을 선택하고 "*** Full"텍스트를 "Set up"으로 대체하도록하는 방법이 있습니까?
미리 감사드립니다!
편집하다:
Sub Sunday_avails()
Dim Range1 As Range
Dim Cell1 As Range
Set Range1 = Range("O1:AAA1")
For Each Cell1 In Range1
Select Case True
Case Celll Like "*Sun*"
Cell1.EntireColumn.Replace What:="***Full", Replacement:="*Set up", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Select
Next Cell1
End Sub
JvdV
모든 열을 단계별로 실행하는 간단한 대안 :
Dim cl1 As Long, cl2 As Long, x As Long
With Sheet1 'Specify your sheet's codename
cl1 = .Range("1:1").Find("Sun").Column
cl2 = .Cells(1, .Columns.Count).End(xlToLeft).Column
For x = cl1 To cl2 Step 7
.Columns(x).Replace What:="***Full", Replacement:="*Set up"
Next
End With
7 단계가 데이터 레이아웃에 적합한 지 확인할 수있는 경우 유용합니다. 어쨌든 위의 내용이 적용되지 않더라도 시트 개체에 대한 불필요한 호출을 많이 방지하기 위해 마지막으로 사용 된 열을 아는 것이 유용합니다 =)
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
에서 수정
관련 기사
Related 관련 기사
- 1
열에 특정 텍스트 / 문자열이 포함 된 경우 행 숨기기
- 2
문자열 길이가 동적 일 때 문자열 텍스트의 특정 섹션 교체
- 3
JS / HTML에서 특정 텍스트를 인쇄하는 경우 배열의 항목을 확인하십시오.
- 4
공백이있는 경우에만 특정 구분 기호 사이의 텍스트를 교체하십시오.
- 5
셀 값에 WPF DataGrid 열 머리글 텍스트 바인딩
- 6
문자열의 특정 텍스트 패턴을 문자로 교체
- 7
열의 텍스트 교체 및 제거
- 8
Excel 파일의 머리글 및 바닥 글 텍스트 교체
- 9
Excel 파일의 머리글 및 바닥 글 텍스트 교체
- 10
텍스트에 Rails 모델의 특정 단어 또는 문자열이있는 경우 오류 표시
- 11
모든 문자열 사이의 텍스트 교체
- 12
두 문자열 사이의 텍스트 교체
- 13
개체 인스턴스의 열거 형에 정적 컨텍스트가있는 이유는 무엇입니까?
- 14
특정 텍스트 교체
- 15
두 문자열의 값이 다른 경우 비교 후 입력 텍스트의 배경색 변경
- 16
팬더 열의 텍스트 정리
- 17
특정 문자열의 마지막 인스턴스 이후 텍스트 블록 추출
- 18
필드 인 경우에만 정규식을 사용하여 텍스트 교체
- 19
B 열에 '텍스트가있는 경우 A 열 업데이트
- 20
열 초기 값이 null 인 경우 PostgreSQL의 열 데이터에 텍스트 추가
- 21
텍스트 문자열 길이가 3 자 이상인 경우 div 숨기기
- 22
이진 문자열을 특정 행 길이로 텍스트 파일로 인쇄
- 23
특정 값이있는 텍스트 파일의 C # 배열
- 24
파이썬 텍스트 파일의 특정 줄 나열
- 25
ASP VB.NET GridView : AutogenerateColumn = True를 사용하여 열 머리글 이름으로 열 셀 텍스트 변경
- 26
인덱스를 알 수없는 경우 특정 배열 항목 업데이트
- 27
특정 값 / 텍스트의 열에서 마지막 인덱스 찾기-VBA
- 28
특정 텍스트가있는 경우 태그 사이에 텍스트 인쇄 (포함)
- 29
PostgreSQL 텍스트 배열-정수로 쿼리, 숫자가 아닌 경우 무시
몇 마디 만하겠습니다