求 大大们 请问这句话的意义何在

sky_silent

    Sheets("1").Activate
    With ActiveSheet
        .Range("A1").PasteSpecial xlPasteAll
        Application.CutCopyMode = False

        tmp_n = 2
        For i = 3 To n1 - 3
            If .Range("A" & i) <> "" Then
                .Range("A" & tmp_n & ":A" & i - 1).FillDown
                tmp_n = i
            End If
        Next i

        .Rows(n1 - 3).Delete Shift:=xlUp
    End With

phsu

將剪貼簿的內容貼到A1單元格。跑循環，從3跑到n1-3，只要A列單元格不是空白，就將A列從"A" & tmp_n 填滿到"A" & i - 1。最後將n1-3行刪除。

sky_silent

phsu 发表于 2018-6-10 08:47
將剪貼簿的內容貼到A1單元格。跑循環，從3跑到n1-3，只要A列單元格不是空白，就將A列從"A" & tmp_n 填滿到" ...

在研究一下 谢谢

sky_silent

.Range("A2:A" & n).FormulaArray = "=0&200"&"RIGHT(SUBSTITUTE(B2:B" & n,""）"",""""),4)"
请问这句话的一直提示语句缺少 请问如何修改呀

sky_silent

phsu 发表于 2018-6-10 08:47
將剪貼簿的內容貼到A1單元格。跑循環，從3跑到n1-3，只要A列單元格不是空白，就將A列從"A" & tmp_n 填滿到" ...

.Range("A2:A" & n).FormulaArray = "=0&200"&"RIGHT(SUBSTITUTE(B2:B" & n,""）"",""""),4)"
请问这句话的一直提示语句缺少 请问如何修改呀

phsu

FormulaArray用來處理數組運算，且前後要加大括號。若不是做數組運算，把.FormulaArray去除即可。

sky_silent

phsu 发表于 2018-6-11 09:03
FormulaArray用來處理數組運算，且前後要加大括號。若不是做數組運算，把.FormulaArray去除即可。

谢谢 我在好好研究一下