방법 : 이것은 VBA 사용이 아닌 Trim 함수를 사용하여 해결하는 것이 간편

 

함수 사용시 아래처럼 변환된다.

결론적으로, 가운데 많이 뛰어 쓰기 한것도 한칸으로 변환하고, 앞 뒤의 공백은 없애준다!

 

예시

=TRIM(A1)

 

           테스트 문구 테스트 문구
테스트 문구 테스트 문구
테스트                          문구 테스트 문구

'Excel(엑셀) > Excel' 카테고리의 다른 글

Speed VLOOKUP  (0) 2021.03.27
VLOOKUP 을 다중 조건으로 골라내기  (0) 2019.05.02

설정

트랙백

댓글

목적
: 포문 돌때 짝수만 돌기

실행결과
: For문의 짝수만 돌아서 진행

코드

    For i = 0 To UBound(varTemp) Step 2      '배열내 증가값을 2씩 한다. 
        format_sheet.Rows(format_similar_job + (i / 2)).Columns(3).Value = varTemp(i) 
        'i = i + 2 '짝수만 돌리기 
        MsgBox i 
    Next 



설정

트랙백

댓글

The Office Season 1 - Episode 6 - Hot Girl, Review
vendor 행상인, 노점상
That is a distraction. 그건 방해가되. distraction 집중을 방해하는것
break it up 싸우지 마라
You're being infiltrated. 당신은 침투하고 있습니다.
I'm against violence in the workplace. 직장내에서 폭력은 반대합니다.
let's put them in the hallway. 그들은 복도에 두지
decisiveness 결정적임, 단호함
illuminating 이해를 돕는, 분명하게 하는 
Just don't hesitate to ask. 망설이지 말고 물어봐요.
a cup of coffee would be great. 커피 한잔이면 좋을거 같네요.
go by the beat of a different drummer. 다른사람이 뭐라해도 상관하지 않고 자기가 하고 싶은대로 하다.
That's a very rude thing to say. 그건 매우 무례한 말이에요.
Would you look after the purses, please? 지갑들을 좀 봐줄래요?(누가 훔쳐갈까봐)
I'm on the phone. 전화 받는 중이에요.
See you in a bit. 조만간 보자. (잠시후에 보자의 의미)
Why don't you get on that? 왜 시작하지 않지?
primarily [praɪˈmerəli] 주로
I would be all over that (?)
go-to guy 해결사
If you hit a stall, you have a perfect fallback. 너가 장벽에 부딪혀도, 완벽한 대비책이 있다.
busted 걸렸네~(못된짓을 하다 걸린)
bail on 바람맞히다. 어기다.
I don't wanna inconvenience you. 당신을 불편하게 하고 싶지 않아요.
I'm your inferior, 나는 당신의 열악한 존재입니다.
Thoroughness is very important. 완벽함은 아주 중요하지.
futon 방석 겸 요
Are you still mad at me? 아직 나에게 화가 난거야?
Cut it out : (명령형) 그만둬, 닥쳐
Don't freak it out. 무서워 하지 말아요.

설정

트랙백

댓글

BCT 시험

중국어/BCT 2019. 4. 14. 08:38

9:30까지 입실(실제는 50분에 통제)

9:35~9:48 OT 끝 휴식시간

10:00~11:35 시험

 

샤프펜슬 사용가능

 

'중국어 > BCT' 카테고리의 다른 글

BCT 단어  (0) 2019.03.11

설정

트랙백

댓글

목적

: 시트 만들고, 기존 시트 복사해서 넣기

 

실행 결과

: 새로운 파일 만들고, 그곳에 기존에 있던 내용중 특정 시트를 복사해서 붙여 넣는다.

 

코드

Sub copy_sheet()
    Dim wb As Workbook
    Dim template_sheet, format_sheet As Worksheet
    Dim file_name As String
    Dim template_row As Integer, template_col As Integer
    Dim i, j, k As Integer
        
    Set template_sht = Sheets("TEST")
    Set format_sheet = Sheets("양식") '양식 시트를 붙여 넣을 것임
    
    template_row = template_sht.UsedRange.Rows.Count
    template_col = template_sht.UsedRange.Columns.Count
    
    '파일 생성++
    For i = 44 To template_row
        
        file_name = Mid(template_sht.Rows(i).Columns(2).Value, 5, 9) '문자열 자르기

        '생성할 파일이 이미존재하는지 여부확인
        If Len(Dir(ThisWorkbook.Path & "\" & file_name & ".xlsx")) Then
            ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면  True
            'MsgBox "파일명이 존재합니다." & i & file_name  '메시지 띄움            
        Else
            Workbooks.Add  '워크북 추가
            format_sheet.Copy Before:=ActiveWorkbook.Sheets(1)

'시트를 복사해 넣는다.
            ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx" 

            ActiveWorkbook.Close SaveChanges:=True
            '현 디렉토리에 "file_name".xlsx 로 저장 후 종료
            
        End If
        
    Next i
    '파일 생성--
    
End Sub

설정

트랙백

댓글

목적
: 엑셀 파일 생성 및 문자열에서 필요한 부분만 추출

실행결과
: 4,2 셀에 있는 값의 5부터 8개 글자의 파일명으로 추출해서 파일명 만든후 생성

코드

Sub create_file_device_string() 
    Dim template_sheet As Worksheet 
    Dim file_name As String 
     
    Set template_sht = Sheets("TEST") 
     
    file_name = Mid(template_sht.Rows(4).Columns(2).Value, 5, 8) '문자열 자르기 
 
    '생성할 파일이 이미존재하는지 여부확인 
    If Len(Dir(ThisWorkbook.Path & "\" & F_name & ".xlsx")) Then 
        ' 현 워크북 파일 디렉토리에 F_name 변수값의 엑셀파일이 있다면  True 
        MsgBox "파일명이 존재합니다."  '메시지 띄움 
         
    End If 

    Workbooks.Add  '워크북 추가 

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & file_name & ".xlsx" 
    '현 디렉토리에 "file_name".xlsx 로 저장 
End Sub 



설정

트랙백

댓글

4/25/19(Tue)

pour 쏟아지다.
the systems for dealing with horrible natural disasters 재난대응체계
pillar 기둥(건물)
It’s natural that 이건 당연하다.
Flexible material 유연한 소재
a construction company 건설회사.

 

4/15/19(Tue)

Siberian high 시베리안 고기압
sank sink 의 과거 침몰하다.
capsize 뒤집어지다.
impeaches 탄핵하다.
window dressing 쇼윈도 장식
chip in 기부하다. 
sell 팔다, 매각하다.

 

4/2/19(Tue)

tourism 관광업
tourist 관광객
 At first sight 언뜻보기에, 
it is getting worse, 점점 나빠지다. 
store 가게
competition is fierce 치열하다.
accountant 회계사
demand and supply 수요와 공급

 

4/1/19(Mon)

effective 효력을 발하다.
bribe 뇌물
powder 가루
I would rather ~하는게 더 좋다.
ex (vowel - a,e,i,o,u) 이그 - example
ex (consonant) 엑스 - expert

'영어 > 매일 영어' 카테고리의 다른 글

영어 Daily 정리(June.19)  (0) 2019.06.10
영어 Daily 정리(May.19)  (0) 2019.05.02
영어 Daily 정리(Mar.19)  (0) 2019.03.04
영어 Daily 정리(Fab.19)  (0) 2019.02.07
영어 Daily 정리(Jan.19)  (0) 2019.01.02

설정

트랙백

댓글

29/4/19

心意 [xīnyì]  마음, 성의
有过出国留学的经历。해외유학경험이 있는
面子 miàn zi 체면

 

27/4/19

传染 [chuánrǎn] 전염하다.
笑声 [xiàoshēng] 웃음소리
季度 [jìdù] 분기
对于和工作有关的知识方面

 

24/4/19

助理 [zhùlǐ] 보조(하다)
见世面 [jiàn shìmiàn] 세상 물정을 잘 알다.
丈母娘 장모

 

22/4/19

好久不V 오랜만에, 
理发店 [lǐfàdiàn] (남자,여자 다 가는곳) 미용실
只可以剪发,不可以烫发。 이발은 가능하지만, 파마는 불가
染色 [rǎn//sè] 염색하다.
词典 [cídiǎn] 사전
干净 = 整洁 [gānjìng zhĕngjié ] 깔끔하다.
叔丈人 [shū zhàngrén] 장인

 

17/4/19

都是免费的。모두 공짜이다. 
以前的部门 이전 부서의 사람
两百块钱 200 위안
回忆 [huíyì] 추억
长得很帅。얼굴이 잘생겼다.
高中时 고등학교때
同班同学 [tóngbāntóngxué] 동급생(같은반 같은 학교)
职位是科长 직위가 과장이다.

 

16/4/19

组建 [zǔjiàn] 조직하다.(스터디 등)
带头(儿) [dài//tóu(r)] 앞장서다.
我带头组建了这个学习小组. 내가 나서서 스터디를 조직하였다. 
我还怎么看棒球赛。어떻게 야구경기를 보겠어. 
他比我工作的时间长 그는 나에비해 근무한 시간이 길다.
工龄 [gōnglíng] 근속연한

 

8/4/19

盛开 [ shèngkāi ] 꽃이 만발하다.
教会 [ jiàohuì ] 교회
基督教 [ Jīdūjiào ] 기독교
宗教 [ zōngjiào ] 종교
从来都不 여지껐 ~하지 않다.
同类相从 [ tónglèixiāngcóng ] 유유상종
资深 [ zīshēn ] 진실한
身材 [ shēncái ] 몸매

 

3/4/19

戳穿 [ chuōchuān ]  폭로하다
装聋作哑 [ zhuāng lóng zuò yǎ ] 귀머거리인 척 벙어리인 척하다
补贴 [ bǔtiē ] 보조금, 수당
感到背叛 [huì găndào bèipàn ba] 배신감도 느꼈다.
背叛 [bèipàn] 배신하다.
心脏病 [ xīnzàngbìng ] 심장병

 

2/4/19

愚人节 만우절
你们一定要在今天结束之前把蛋糕做完 오늘까지 케익을 만들어야 한다.
尹课长在他还没把话结束之前就打断了他的话
김과장은 그가 채 말끝을 여미기도 전에 그의 말을 끊으며 말했다.
构造 [ gòuzào ] 구조

 

1/4/19

莫动物的毛 [mō ] 동물의 털을 만지다.
凶 [ xiōng ] 사납다.
讨厌 [ tǎoyàn ] 싫어하다.
调整 [ tiáozhěng ] 조정하다.

'중국어 > 오늘의 중국어' 카테고리의 다른 글

每天中文 - 5月  (0) 2019.05.03
每天中文  (0) 2019.01.18
오늘의 중국어 2017.06.07. 星其三  (0) 2017.06.07
오늘의 중국어 2017.06.02. 星其五  (0) 2017.06.02
오늘의 중국어 2017.05.26. 星其五  (0) 2017.05.26

설정

트랙백

댓글

목적

: 다양한 문자열 들을 합치는 기능 구현

ex) A 와 B 라는 양식의 글들을 있을때 A(B) 라는 문자열로 모두 만들때


실행 결과

: B~차있는 열 까지의 문자들이 모두 합쳐져서 A 열에 나타나게 됨


코드

 Sub sum_string()

    Dim template_sht As Worksheet, position_sht As Worksheet, std_job_sht As Worksheet

    

    Set template_sht = Sheets("Data") '실제 Sheet 의 이름

    Dim template_row As Integer, template_col As Integer

    Dim temp_str As String

    Dim i As Integer, j As Integer

        

    template_row = template_sht.UsedRange.Rows.count

    template_col = template_sht.UsedRange.Columns.count


    For i = 1 To template_row

        

        temp_str = ""

        For j = 2 To template_col

            If IsEmpty(template_sht.Rows(i).Columns(j).Value) Then

            Else

                temp_str = temp_str & template_sht.Rows(i).Columns(j).Value

            End If

        Next j

        template_sht.Rows(i).Columns(1).Value = temp_str

    Next i

    

End Sub


설정

트랙백

댓글

목적

: 엑셀에서 특정한 시트 하나만 남기고 모두 삭제 or 원하는 시트만 남기고 모두 삭제하기


실행 결과

: 지정한 시트만 남고 모두 삭제됨


코드

Sub DeleteSheet()

    Dim xWs As Worksheet


Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each xWs In Application.ActiveWorkbook.Worksheets

If xWs.Name <> "Sheet1" And xWs.Name <> "남길시트이름" Then 'Sheet1 과 남길시트이름 두개만 남기고 모두 삭제됨

xWs.Delete

End If

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub


설정

트랙백

댓글