Tag: 复制粘贴
从一张纸复印到另一张时发生运行时错误
我有下面列出的代码，我想复制包含在if语句中的规则的每一行，并将其粘贴到第二个工作表中。 这是我的： Sub Button1_Click() Dim i As Long, j As Long Dim mainworkBook As Workbook Set mainworkBook = ActiveWorkbook Lastrow = Cells(Rows.Count, "Y").End(xlUp).Row j = 1 For i = 5 To Lastrow If (IsEmpty(Range(Cells(i, 2), Cells(i, 2)))) Then If IsNumeric(Range(Cells(i, 25), Cells(i, 25))) Then Range(Cells(i, 1), Cells(i, 1)).Value = "T" Range(Cells(i, 2), Cells(i, 24)).Value = […]
修复Excel中粘贴的表格数据（从网站复制）
我从网站上复制大量的数据，但是因为它没有在表格中放置，所以在Excel中以下面的格式粘贴： France Europe Spain Europe Egypt Africa 我试图find一种方法来自动化Excel中的“修复”，将其转换为以下格式： France Europe Spain Europe Egypt Africa 我已经尝试创build一个快速的macros来移动较低的单元格'和'，但我努力让它工作。 有没有一个简单的方法来做到这一点，我错过了或将涉及写一个VB函数？
参考带有variables名称的工作簿/工作表
Sub CpyProdSch() Dim wbkOpen As Workbook Dim wb2 As Workbook Dim wsName As String Dim strFileName As String Dim strFilePath As String Dim MsgBoxResult As Long strFilePath = "\\Ykf001\grpdata\PUBLIC\Operations\Converting Schedule\" ' this could also be a constant strFileName = Dir(strFilePath) Set wbkOpen = Workbooks.Open(strFilePath & strFileName, False, True) 'It stops here – or at least […]
使用colspan复制/粘贴HTML表格到Excel？
编辑 ： 在OSX上，复制/粘贴从Firefox完美工作，但不是从Chrome或Safari 是否有可能将表格单元与colspan复制到Excel来反映结构？ 想要一个应用程序来呈现HTML中的表格，以便用户可以很好地复制/粘贴到Excel。 特别是，像colspan=#某些表格单元以正确的alignment方式复制到Excel。 问题是，Excel似乎在复制/粘贴中忽略了colspan。 因此，在下面的例子中，列标题“大小”出现在左上方，在“黄色”列上出现在“小”列上时， 我不特别在意Excel单元是“合并”，“集中在select”还是只是单独的单元格。 他们关键的一点是要让这个位置在语义上是正确的。 HTML5好吧，以及任何黑客 CodePen ： http : //codepen.io/gradualstudent/pen/MYwNpY 在浏览器中呈现的HTML表格： 复制/粘贴到Excel后的表格：
在VBA中复制粘贴循环并跳过值
对于一般的代码编写和特别是VBA来说，我是相当新的。 我试图写一个相当简单的macros，每天从一个单元格复制到另一个单元格，但是我想知道是否有一个方法有更less的variables为循环计数器，换句话说，循环计数器可以跳过某些值？ Private Sub YesButton_Click() Dim z As Integer Dim z1 As Integer Dim z2 As Integer Dim z3 As Integer Dim z4 As Integer Dim z5 As Integer Dim z6 As Integer Dim z7 As Integer Dim z8 As Integer Dim z9 As Integer Dim z10 As Integer Dim z11 As Integer Dim z12 […]
VBA文本到列只有一个元素
我在Excel电子表格中有这样的数据单元格：CZ15.cbt，411.00，“4/2/2015”，“2:30 pm”，+ 4.25,406.75,412.25,403.25,36155 我唯一感兴趣的是第二个元素，即411.00。 他们的方法是只复制这个值在另一个单元格？ 到目前为止，我用这个代码： Worksheets("Workspace").Range("A1").texttocolumns Destination:=Worksheets("Workspace").Range("A2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)) 这将单元格中的所有元素相互复制，然后将第二个元素引用到结果工作表中。 问题是，现在我有多个单元相邻的原始9个元素，他们会覆盖对方。 另一个select是垂直复制9个元素，以使它们全部在同一列中。 无论哪个更容易… 非常感谢你！ 斯特凡
VBA – 从多个工作区复制/粘贴一个单元格到主表单
我有打开文件夹中的多个文件的代码，将该文件的名称打印到主文件的第1列（继续向下列），closures当前文件，并移动到下一个文件夹，直到文件夹为空。 单元格J1中的信息（最好写为1,10）是我打算在文件打开时复制的所有文件的信息，粘贴到第4列（继续向下，等于每个文件的名称），以及继续closures当前文件并继续。 我不知道如何复制一个单元格，因为范围需要多行信息。 这是我的工作代码循环浏览文件，只是打印他们的名字。 有任何想法吗？ 谢谢！ Sub LoopThroughDirectory() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim MyFolder As String Dim Sht As Worksheet Dim i As Integer Dim LastRow As Integer, erow As Integer 'Speed up process by not updating the screen 'Application.ScreenUpdating = False MyFolder = "C:\Users\trembos\Documents\TDS\progress\" Set Sht […]
search列标题，复制列并粘贴到主工作簿
如何将这些列标题名称“TOOL CUTTER”和“HOLDER”复制到列表（仅数据），并将它们粘贴到另一个工作簿表单中，其中VBA代码（Sheet Module）是。 谢谢。 列标题HOLDER出现在F10中（最好写为（10，6），而TOOL CUTTER在G10（10，11）中，但最好是search标题名称并打印该列中的任何内容，直到它是完全空的（可能会出现空格）任何帮助都非常感谢！ 工作代码：打开循环中的文件夹中的文件 – 打开文件，将文件的名称打印到Masterfile表中，将项目J1从文件打印到Masterfile表格中，closures文件，打开文件夹中的下一个文件，直到全部循环。 Option Explicit Sub LoopThroughDirectory() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim MyFolder As String Dim Sht As Worksheet, ws As Worksheet Dim WB As Workbook Dim i As Integer Dim LastRow As Integer, erow As Integer Dim Height As Integer […]
如何复制Excel文本并保留换行符
我有一个Excel（2013）电子表格，其中包含一些单元格中的多行文本。 对这些单元格启用了自动换行function，因此它们正确显示换行符。 但是，所讨论的单元格是受保护的（而且我没有密码），所以我不能点击编辑框从那里复制。 如果我使用Ctrl-C复制到剪贴板，然后粘贴到记事本中，然后删除所有换行符，并在文本周围放置双引号。 如何复制文本并保留换行符？
复制行，转置和粘贴
我需要一个简单的扭曲复制和粘贴列/行的常见VBA代码我想要做的是复制表2中的整个行，转置，然后将其粘贴到列A，Sheet1。 sheet1中的第一行有标题，所以我必须把它们粘贴到扩展到整个列的A2中 Sub transpose2() Sheets(2).Range("A1", Cells(Columns.Count, "A").End(xlRight)).Copy Sheets(1).Range("A2").PasteSpecial transpose:=True Range("A1").ClearOutline End Sub 这似乎并不奏效。 谁能帮我这个？ 谢谢！
