返回列表 上一主題 發帖

[發問] 請教範圍的設定vba

sto3688

帖子
14 
主題
5 
精華
0 
積分
23 
點名
0  
作業系統
win 7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-8-10 
最後登錄
2014-2-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-2-12 10:57 | 只看該作者

[發問] 請教範圍的設定vba

以下是vba碼
' 巨集1 巨集
'

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

想請教在f2:ba2範圍內,想略過資料是---的儲存格,該加入什麼程式碼?
感謝高手指點,謝謝~
收藏 分享

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
2#
發表於 2013-2-13 14:52 | 只看該作者
回復 1# sto3688


Range("F2:H2,K2:BA2").Select
向上式 I2.J2 就是略過的
boyao

TOP

sto3688

帖子
14 
主題
5 
精華
0 
積分
23 
點名
0  
作業系統
win 7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-8-10 
最後登錄
2014-2-28 
3#
發表於 2013-2-13 15:27 | 只看該作者
感謝回復,可能我表達不佳,被誤解意思了



我是想用vba   Range("i2:n2").Select 這選取範圍內,能自動排除資料為"---"的儲存格,也就是如上圖中
讓 vba 只選擇k2跟l2這2個儲存格,不知道有沒有適合的程式碼,感謝

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-4-9 
4#
發表於 2013-2-18 00:48 | 只看該作者
  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 "沒有合適的單元格！"
  20.   Else
  21.     With RangeCopy
  22.       .Select
  23.       .Copy
  24.     End With
  25.   End If
  26. End Sub
複製代碼

TOP

sto3688

帖子
14 
主題
5 
精華
0 
積分
23 
點名
0  
作業系統
win 7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-8-10 
最後登錄
2014-2-28 
5#
發表於 2013-2-18 10:34 | 只看該作者
測試後可以copy了,感謝Joforn 大~

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題