HUNGCHILIN

¦^´_ 5# PKKO

¿ï¿ù¤§«á ­n¦A¥Î¿ïªº ªÅ¥Õ ´N­n¦b²M³æ¤º¦³¤@ªÅ¥Õ¿ï¶µ
´N¬ODATA ­n¦³ªÅ¥Õ®æ
´N¬OÅçÃÒ²M³æ¦³ªÅ¥Õ®æ

±z¤W­±ªºµ{¦¡´Nºñ¦âªº¨º¦æ¦³°ÝÃD.Åܦ¨µù¸Ñ´N¥i¥H°õ¦æ
Public Sub AAAAAA()
With Me
        cc = .Rows(1).Find("©Ò¦³³æ¦ì", Lookat:=xlWhole).Column '¥N¸¹ªºColumn
        Set myRange = .Range("A2:A" & .Range("A65536").End(xlUp).Row) '¸ê®ÆÅçÃÒ¥Î
        For Each e In myRange
            ARR = ARR & "," & e
        Next
        
    MsgBox ARR
        
       ' ARR = Split(Mid(ARR, 2, 10000), ",") '¬Ý¹L°}¦Cªº­È½T©w¨S°ÝÃD
        With .Range("d2:d10").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=ARR
        End With
End With
End Sub

HUNGCHILIN

With Me
        CC = .Rows(1).Find("©Ò¦³³æ¦ì", Lookat:=xlWhole).Column '¥N¸¹ªºColumn
        
        
        myRange = .[A1].Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 1).Value
      
        
        For Each e In myRange
            ARR = ARR & "," & e
        Next

'       ' ARR = Split(Mid(ARR, 2, 10000), ",") '?
        With .Range("d2:d10").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=ARR
        End With
End With

HUNGCHILIN

¦^´_ 10# PKKO
ªü¦N´ú¸Õ®É§âµ{¦¡¶K¦b¡ASheets("Âà´«ªí") ªº¤u§@ªíµ{¦¡区内¡A¬Gª½±µ¥ÎMe¡A´N¥i¥H¤F¡A
¦pªGµ{¦¡©ñ¦b ¼Ò²Õ1 内¡A´N¤@©w­n«ü©w¡Awith Sheets("Âà´«ªí")¡A
§Ú³q±`¸û¤Ö¥Î Sheets("Âà´«ªí")ªº¼gªk¡A¦]¬°§ïSheet¦WºÙµ{¦¡´N·|³ø¿ù»~´£¥Ü¡C
¦³®É¥ÎSheet1¡ASheet2¼gªk¸û¨Î¡C

HUNGCHILIN

¥u¬O³æ¯Âªº´ú¸Õµ{¦¡¡A¨S§Oªº
²¤Æµ{¦¡¡A«Ü¦nªº·Qªk