特定细胞从线复制并粘贴到另一个片材,则重复上下一行,并重复,直到在下一行细胞是空白

问题描述 投票:0回答:1

编辑:19年2月2日

我仍然在努力理解这一点。我做多一点阅读和明白,我是标题错了路。我已经创造了什么,我试图做以下示例更好的解释。我需要你的帮助我与步骤1-2,步骤4-5和7-9步。感谢您的耐心和理解!

Sub Weeder_Repeater()
'
' 1) Copy Columns "D:L" Starting at Line 4 from Candidate Weeder sheet
' 2) Special Paste, Values, Transpose, to Metal Powder Bed AM Calculator sheet Cell "Q6"
' 3) Call Weeder_RAPID_Cal macro
' 4) Copy solution from Metal Powder Bed AM Calculator sheet Cell "Q15"
' 5) Special Paste, Values to Candidate Weeder sheet Column "O"
' 6) Call Weeder_RAPID_Reset macro
' 7) Move to next line in Candidate Weeder sheet
' 8) Repeat Steps 1-7
' 9) End when Blank in Column "D" encountered
'

'Step 1-2


'Step 3
    Call Weeder_RAPID_Calc

'Step 4-5


'Step 6
    Call Weeder_RAPID_Reset

'Step 7-9


End Sub
excel vba
1个回答
0
投票

“指定输出范围数据

对于计数器= 3〜10000

'Conditions that you can change it. in the bellow codes (counter) is your cell number and the number after comma is your column index. you can also do not specify your column and only loop through cells. you can also use from (i,j) for looping through both cells and columns (means two (For) loops).

如果工作表( “第二QC”)。将细胞(计数器,2)。价值<工作表( “第二QC”)。将细胞(计数器,3)_或工作表( “第二QC”)。将细胞(计数器,3)。价值<工作表( “第二QC”)。将细胞(计数器,4)_或工作表( “第二QC”)。将细胞(计数器,4)。价值<工作表( “第二QC”)。将细胞(计数器,5)然后

工作表( “第二QC”)。行(计数器).Interior.Color = 65535

其他工作表( “第二QC”)。将细胞(计数器)。价值=工作表( “第二QC”)。将细胞(计数器)。价值

万一

接下来计数器

“退出循环实施例:

退出Sub语句演示()

暗淡我,将myNum

Do                ' Set up infinite loop.

    For I = 1 To 1000    ' Loop 1000 times.

        MyNum = Int(Rnd * 1000)    ' Generate random numbers.

        Select Case MyNum    ' Evaluate random number.

            Case 7: Exit For    ' If 7, exit For...Next.
            Case 29: Exit Do    ' If 29, exit Do...Loop.
            Case 54: Exit Sub    ' If 54, exit Sub procedure.
        End Select
    Next I
Loop

结束小组

“我希望它帮

© www.soinside.com 2019 - 2024. All rights reserved.