Tag: 副本

如何复制Excel中单元格的文本值

我有一个工作表中的简单的复制button与代码。 Range("A9:E19").Select Selection.Copy 我最近注意到，当将结果粘贴到电子邮件中时，我也获得了单元格，而不仅仅是文本值。 我已经阅读了很多关于将值粘贴回excel的post，但是当我粘贴到外部电子邮件应用程序（例如Gmail）时，是否有一种方法可以控制实际发送到剪贴板的内容，而不是过滤粘贴的内容见过的例子。 Sub Button1_Click() Option Explicit End Sub Sub Macro1() ' ' Macro1 ''Copy some Range Range("A9:E19").CurrentRegion.Copy 'Convert it to text and put in clipboard With dOBJ .GetFromClipboard S = .GetText .Clear .SetText S, 1 .PutInClipboard End With End Sub 'Set Reference to Microsoft Forms 2.0 Object Library Sub CopyText() Dim dOBJ […]

Excel使用macros复制粘贴值

我需要将单元格值从一个单元格复制到其他单元格。 这是代码工作 Private Sub CommandButton2_Click() Range("K5").Select Selection.Copy Sheets("Sheet1").Select Range("B12").Select ActiveSheet.Paste End Sub 需要将K5单元格数据复制到sheet1 b12？

VBA：打开一个xls文件并将其添加到当前的工作簿

我有这个问题。 我有一个xls文件，其中包含一个单一的数据表。 在我的主应用程序，一个不同的工作簿，我想打开这张单一的xls文件，并将工作表复制到当前的工作簿。 我可以做到这一点，如果我select源文件的范围来复制，但这个单一的文件可能会改变，所以我宁愿拿出一个解决scheme，只是复制整个文件。 这是我一直在使用的一些代码： Set src = Workbooks.Open(Filename:="thefile.xlsx") Range("F4:F67").Copy ThisWorkbook.Activate Sheets("Result").Activate Range("A1").Select ActiveSheet.Paste 我感谢任何帮助。 谢谢

在Excel中复制值N次

我有简单的列表： AB item1 3 item2 2 item3 4 item4 1 需要输出： A item1 item1 item1 item2 item2 item3 item3 item3 item3 item4

sorting工作簿中的所有工作表

我有这个代码，实际上正是我想要的： 进入特定的范围，在新的范围内复制表格并重新排列表格。 这里是代码： Sub copy_paste_sort() Dim oneRange As Range Dim aCell As Range Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count Set oneRange = Range("CZ269:DA294") Set aCell = […]