复制单元格下的单元格与常量值（见截图） – excel

图片将使这一切是有道理的。 但我只是试图将“作者信息：”单元下面的文本复制到另一个单元格位置。 这并不难，因为这只是一个简单的复制和粘贴，但我需要search整个工作表，并从“作者信息：”下面的第一个单元格中提取所有的信息。现在有成千上万的条目.. 。

Screenshot Dropbox链接： https ： //www.dropbox.com/s/nbyg8lkay3c5c9s/Screenshot%202013-12-27%2016.32.38.png

任何帮助将是太棒了！

Answer 1

为了方便，请尝试以下操作。

1. 在单元格C2中键入此公式= IF（A1 =“作者信息：”，A2，“”）
2. 一路下来复制这个公式
3. 将列C中的结果复制到另一个工作表中，并且只将值粘贴到特定值
4. sorting该表以摆脱空白

这应该是一个快速和肮脏的方式来完成它。

Answer 2

试试这个代码：

Sub copyAuthorInfo() Dim src As Worksheet, tgt As Worksheet Dim irows As Long Dim rrows As Long Set src = ThisWorkbook.Sheets("Sheet1") ' this is the sheet with the original data Set tgt = ThisWorkbook.Sheets("Sheet2") ' author info will be copied into this sheet irows = src.UsedRange.Rows.Count ' count the number of used rows in sheet 1 rrows = 1 'row counter for the target sheet For i = 1 To irows If Cells(i, 1).Value = "Author information:" Then 'make sure to adjust the search text ' copying columns A to C. Change the 3 in the following line to copy more columns. Range(Cells(i + 1, 1), Cells(i + 1, 3)).Copy tgt.Range("A" & rrows) rrows = rrows + 1 End If Next End Sub 

要运行代码，您需要使用Alt-F11或您首选的方法打开Visual Basic编辑器（VBE）。 使用插入>模块并粘贴代码。 您可以在游标位于代码中的某处时按F5来运行代码。

你已经用OSX标记。 这是否意味着你使用Mac？ 您还使用Excel 2007和2010进行了标记。在这些代码中运行正常，但不适用于Mac版Excel 2008，因为它不支持VBA。