ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð½d³òªº³]©wvba

[µo°Ý] ½Ð±Ð½d³òªº³]©wvba

¥H¤U¬Ovba½X
' ¥¨¶°1 ¥¨¶°
'

'
    Range("F2:BA2").Select
    Selection.Copy
End Sub

·Q½Ð±Ð¦bf2:ba2½d³ò¤º,·Q²¤¹L¸ê®Æ¬O---ªºÀx¦s®æ,¸Ó¥[¤J¤°»òµ{¦¡½X?
·PÁ°ª¤â«üÂI,ÁÂÁÂ~

¦^´_ 1# sto3688


Range("F2:H2,K2:BA2").Select
¦V¤W¦¡ I2.J2 ´N¬O²¤¹Lªº
boyao

TOP

·PÁ¦^´_,¥i¯à§Úªí¹F¤£¨Î,³Q»~¸Ñ·N«ä¤F



§Ú¬O·Q¥Îvba   Range("i2:n2").Select ³o¿ï¨ú½d³ò¤º,¯à¦Û°Ê±Æ°£¸ê®Æ¬°"---"ªºÀx¦s®æ,¤]´N¬O¦p¤W¹Ï¤¤
Åý vba ¥u¿ï¾Ük2¸òl2³o2­ÓÀx¦s®æ,¤£ª¾¹D¦³¨S¦³¾A¦Xªºµ{¦¡½X,·PÁÂ

TOP

  1. Sub TestCopy()
  2.   Dim Range1    As Range
  3.   Dim RangeCopy As Range
  4.   
  5.   For Each Range1 In Range("F2:BA2")
  6.     Select Case Trim$(Range1.Text)
  7.       Case vbNullString
  8.       Case "---"
  9.       Case Else
  10.         If RangeCopy Is Nothing Then
  11.           Set RangeCopy = Range1
  12.         Else
  13.           Set RangeCopy = Union(RangeCopy, Range1)
  14.         End If
  15.     End Select
  16.   Next Range1
  17.   
  18.   If RangeCopy Is Nothing Then
  19.     MsgBox "¨S¦³¦X¾Aªº³æ¤¸®æ¡I"
  20.   Else
  21.     With RangeCopy
  22.       .Select
  23.       .Copy
  24.     End With
  25.   End If
  26. End Sub
½Æ»s¥N½X

TOP

´ú¸Õ«á¥i¥Hcopy¤F,·PÁÂJoforn ¤j~

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD