Question

如果符合条件，我想复制一些特定的列。也就是说，如果第4行中的值为“Fælles”，并且文本不是粗体。

请查看我的代码，并告诉我我做错了什么。我在编码或VBA方面经验不足。

Private Sub CommandButton1_Click()

A = Worksheets("Stig Okt").Cells(Rows.Count, 1).End(xlUp).Row

For i = 34 To A

Next
If Worksheets("Stig Okt").Cells(i, 4).Font.Bold = False And Cells(i,4).Value = "Fælles" Then
    Worksheets("Stig Okt").Rows(i).Columns("A:H").Copy
    Worksheets("Laura Okt").Activate
    b = Worksheets("Laura Okt").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Laura Okt").Cells(b + 1, 1).Select
    ActiveSheet.Paste
End If

If Worksheets("Stig Okt").Cells(i, 4).Font.Bold = False And Cells(i, 4).Value = "Lagt ud" Then
    Worksheetss("Stig Okt").Rows(i).Columns("A:H").Copy
    Worksheets("Laura Okt").Activate
    b = Worksheets("Laura Okt").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Laura Okt").Cells(b + 1, 1).Select
    ActiveSheet.Paste
End If

Worksheets("Stig Okt").Activate


End Sub

没有错误发生，但是它实际上什么也没做，我也不明白为什么？

Answer 1

我认为这就是您的代码应有的方式。
我将appBar: new AppBar( actions: <Widget>[ IconButton( icon: Icon(Icons.settings), onPressed: () { print("Settings Icon"); }, ), ], bottom: PreferredSize( preferredSize: Size(130.0, 130.0), child: Column( crossAxisAlignment: CrossAxisAlignment.center, children: <Widget>[ new Text( 'N/A', ), ], ), ), ),移至ifs之后，这样代码便可以工作了。

Next

如何使用IF AND Macro将单元格复制到另一张纸上？

1 个答案: