老師，我想知道這個怎么反過來
 |
u517840121
展開
|
|
|
pop0937
展開
老師好,下面是我寫的代碼,有個問題,復制到G列，但是G1空的，我用cells（rows.count,"g"）（2,1）
問題來了，怎么才從G1開始
Private Sub Test（）
Dim i
For i = 1 To Cells.Find（"*", Cells（1, 1）, xlValues, xlWhole, xlByColumns, xlPrevious）.Column
Range（"a1:a5"）.Offset（0, i - 1）.Copy Cells（Rows.Count, 7）.End（xlUp）（2, 1）
Next
End Sub 舸邶
展開
@ pop0937 Dim i, r
For i = 1 To Cells.Find（"*", Cells（1, 1）, xlValues, xlWhole, xlByColumns, xlPrevious, 0, 0）.Column
Range（"a1:a5"）.Offset（0, i - 1）.Copy
If Cells（Rows.Count, 7）.End（xlUp）.Row = 1 Then
Cells（Rows.Count, 7）.End（xlUp）.Select
Else
Cells（Rows.Count, 7）.End（xlUp）.Offset（1）.Select
End If
ActiveSheet.Paste
Next |
|
|
東風風行汽車劉巍
展開
|
|
|
xjh673283912
展開
|
承擔因您的行為而導致的法律責任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。