恖椡専嶕偼偰側
邮薏贁艂饡\帵偟偰偄傑偡C斉偼偙偪傜
i-mobile

2񏉢11乧楍栚傪巆偟偰銈虠駛饝S偰嶍彍偟偨偄

Excel偺幙栤偱偡
崱2峴栚偐傜100峴栚傎偳偵偐偗偰粋陚紓陚虓s偺举偵偼棉袄偑偢傜傝偲擖偭偰偄傑偡
2峴栚偼LG楍傑偱11峴栚偼AQ楍傑偱50峴栚偼AK楍傑偱偲e峴擖偭偰傞棉袄悢偼兽资拮偱偡

偙偺忬嫷偵偍偒傑偟偰
2楍栚(B楍)傪巆偟3(C)4(D)楍栚傪嶍彍5楍栚(E楍)傪巆偟6(F)7(G)楍栚傪嶍彍乧偲񎎛񐄟114乧偺廃婜偱楍傪巆偟偰爞苽虠駛蛻S偰嶍彍偟偨偄偺偱偡

奺峴偱举偵擖偭偰偄傞棉袄悢偑堘偄傑偡偺偱
奺峴艔墏虌髷挆瘢偵峴偒摉偨傞傑偱駛虓韽渹饙s偄偨偄偱偡

庤嶌嬈偱傗偭偰傕30暘?1帪娫偖傜偄偁傟偽偱偒偦偆側偺偱偡偑は港傗娭悢側偳
傕偟较澳側曽朄偑偁傟偽偍抦宐傪偍庁傝偟偨偄偲巚偄傑偟偰

傛傠偟偔偍婅偄偟傑偡

仠幙栤幰: moon-fondu
仠睹恨:狠诉 妛廗硤
仜 忬懺 :廔椆
劋 夞摎悢 : 2/2審

仱嵟怴偺夞摎傊

幙栤幰偐傜

偪側傒偵1楍栚(A楍)傕巆偟偨偄偱偡


1 仠 Asayuri
仠50芜草


1丏举B102偐傜嵟戝楍偺200峴栚傑偱偵 師偺娭悢幃傪揬傝晅偗傑偡

=OFFSET($A2,0,(COLUMN()-2)*3+1)

2丏举B102偐傜嵟戝楍偺200峴栚傑偱傪核甙偟偰

举B2偐傜 嵟戝楍偺100峴栚傑偱偵抣揬傝晅偗偡傞偙偲偵傛傝

昁梫偲偡傞棉袄偑姰惉偟傑偡


moon-fondu偝傫偺阂菽
偁傝偑偲偆偛偞偄傑偡あ1蛡軅瓊珎軅祩絹I 2葌虃艂穫B2偐傜100峴栚摉偨傝偼婛偵棉袄偑擖偭偰偄忬嫷偺偱粋眰饤崅邆競蓚鈧鑲絺艂贰

2 仠 Z1000S
仠1200芜草 娃侥陛话

偙傟偱偳偆偱偟傚偆偐丠

Public Sub deleteColumns()

 Const TARGET_SHEET_NAME As String = "Sheet1"
 Const BEGIN_COL As Long = 2
 Const BEGIN_ROW As Long = 2
 Const END_ROW As Long = 100
 Const COL_CYCLE As Long = 3

 Dim rgDatas As Range
 Dim lCurrentCol As Long
 Dim lDataCounts As Long

 lCurrentCol = BEGIN_COL

 With ThisWorkbook.Worksheets(TARGET_SHEET_NAME)
 Do
  '婎弨楍偺塃懁(師偺婎弨楍偺慜傑偱)
 Set rgDatas = .Range(.Cells(BEGIN_ROW, lCurrentCol + 1), .Cells(END_ROW, lCurrentCol + COL_CYCLE - 1))

  '棉袄偑偁傞举悢庢摼
 lDataCounts = WorksheetFunction.CountA(rgDatas)

 If lDataCounts > 0 Then
  '棉袄偑偁傟偽楍嶍彍
 rgDatas.EntireColumn.Delete

 lCurrentCol = lCurrentCol + 1
 End If
 Loop Until (lDataCounts = 0)
 End With

 Debug.Print "Done."

End Sub

moon-fondu偝傫偺阂菽
偁傝偑偲偆偛偞偄傑偡軅瓧駛獜羵軅祩(^^侓

Z1000S偝傫偺阂菽
娃侥陛话偁傝偑偲偆偛偞偄傑偡
娭楢幙栤

仠幙栤傪傕偭偲扵偡仠



0.恖椡専嶕偼偰側寞踢
8.偙偺瓦凹迋饤F払偵徯夘
9.偙偺瓦凹迋虗鎿獋
懳墳婡庬堦棗
偍栤偄崌傢偣
唾踢/偍抦傜偣
鄹薏
柍椏瞻晦皳o榐
偼偰側寞踢