根据单元格值复制行并粘贴到新工作表上

Question

检查此

我需要帮助。我想从A表名称＆＃34;组件＆＃34;中复制整个单元格。只有当C列中的值> 0到新的工作表名称＆＃34;加载列表＆＃34;

有人可以给我宏代码吗？

Answer 1

在新工作表上

，您可以在单元格或单元格区域中添加此条件：

= IF（组件C5＆GT;！0，组件A5）

其中C5具有要比较的值，如果条件发生，A5具有值copy。

Answer 2

在我的挥杆中！

@sweetkaos给出的公式可以正常工作，以防您想要使用没有找到数据的空白来复制数据。

我会想象一个稍微复杂的情况。我假设您只想在下一个格式中使用一行，如图所示。

还方便地假设以下内容： 一个。两张表都有固定的列表起点 湾2列列表 - 要复制和粘贴，第二列具有值 C。连续，没有中断源列表 d。 vba的基本知识，所以你可以重构代码

这是代码。试着逐行理解它。快乐超越！

Sub populateLoadList()    
'declaring range type variables
Dim rngStartFirstList As Range, rngStartLoadList As Range

'setting values to the range variables
'you must change the names of the sheets and A1 to the correct starts of your two lists

Set rngStartFirstList = Worksheets("Name_of_your_fist_sheet").Range("A1")

Set rngStartLoadList = Worksheets("Name_of_your_second_sheet").Range("A1")


Do While rngStartFirstList.Value <> ""
  If rngStartFirstList.Offset(1, 0).Value < 0 Then

     Range(rngStartFirstList, rngStartFirstList.Offset(0, 1)).Copy      

     rngStartLoadList.PasteSpecial xlPasteValues

     Application.CutCopyMode = False

     Set rngStartLoadList = rngStartLoadList.Offset(1, 0)

   End If

   Set rngStartFirstList = rngStartFirstList.Offset(1, 0)

Loop
End Sub

Answer 3

基本上我想要的是......如果C上的值是＆gt; 0我想要将整列10复制到那个新表....不仅仅是那个单元