• 有没有办法在保留其他列并在Excel中复制它们的同时转置某些列?

    我只需要将几列(例如C:G)转置为一列,而同时将信息保留在A列和B列中。 因此,如果乔在星期一进行了销售,则“星期一”将出现在新的“天”列中。然后,下一行将再次有Joe,但是这次是在Day列中的“ Wednesday”。然后,如果没有更多值,则移至Steve并执行相同的操作。我已经坚持了很长时间,因此,对此的任何建议或新方法将不胜感激。我不在乎是否使用公式或VBA代码。 | | A | B | C | D | E | F | G ...
  • Excel VBA Vlookup单个字符

    我有一个字符串,需要将其转换为等效的十六进制。十六进制值可以随文本字符的情况而变化,因此在第二个工作表上,我制作了一个表格,可以根据需要使用A-Z ... a-z..1-0字符及其关联的十六进制值进行修改。 我已经确认我已经正确设置了VLookup的范围,并且已经确认我一次将其传递给一个字符,但是它坚持认为它无法在Vlookup上找到任何值。我在这里想念什么? Sub LoopThroughString() Dim wbBook As Workbook Dim tblSheet As Worksheet D...
  • aht是什么意思

    最近,我正在查看一些旧的VBA代码,并且看到它调用ahtCommonFileOpenSave()函数来引入文件打开对话框。我很好奇为什么名称带有“ aht”前缀,我认为此函数是Win32 API的一部分,但不确定,也没有找到该函数的文档。 I searched a bit and find that thing seems coming from "Access How To" Team at that time, is that abbreviation standing for "Access How ...
  • VBA FindNext丢失一次

    谁能帮我,我试图复制代码以查找特定范围内的所有值,然后在它们旁边的单元格中写“ here”,但是退出循环时遇到了问题,它总是会遗漏一次。 谁能向我解释解决方案? Sub TestValue() Dim c As Range Dim firstAddress As String With shGCD.Range("U:U") Set c = .Find("THIS", lookat:=xlWhole) If Not c Is Nothing Then first...
  • 根据其他工作表中的数据创建图表时,下标超出范围错误

    我正在从sheet3的日期开始在sheet2中创建图表,但是将.setsourcedata设置为sheet3时出现“脚本超出范围”错误。如果我没有定义它,它将运行但会绘制sheet2的范围。如果在定义x / y值时添加sheet3,则会出现相同的错误: .SeriesCollection(1).XValues = sheet3.Range(Cells(irow, icolumnu), Cells(frowu, icolumnu)) 请帮帮我! Set cht = Sheet2.Shapes.AddChar...
  • Microsoft的强制隐式交叉运算符是否在Excel VBA中取消了我的公式?

    我正在使用一个公式根据“ C”列中的值缩进“ D”列中的文本,并且已经在VBA中使用它来格式化工作表。看起来像这样:= setindent(D2,C2)。直到最近,它仍然运作良好,但现在却没有。似乎Microsoft已开始将“隐式交集运算符”强制放入公式中(添加@:= @ setindent(D2,C2)。似乎已经将返回“ #Value!”的公式屏蔽了。在编辑模式下使用公式的单元格,然后按“ Enter”键,它将变为一个数字,并且该公式适用于目标单元格文本。如何在VBA中解决此问题? 这是公式: Funct...
  • 复制和粘贴Excel工作簿,对象变量或未设置块

    不知道为什么我不能复制和粘贴“小睡”表到“ Sheet7”。文件路径正确,但是,传输值部分响应“对象变量或未设置块” Sub Copy and Paste Workbook Dim x As Workbook Dim y As Workbook '## Open both workbooks first: Set x = Workbooks.Open("___") Set y = Workbooks.Open("___") 'Now, transfer values from x to y: **y.S...
  • 宏在不同计算机上的工作方式不同

    我使用VBA开发了一个Excel宏。用户在特定的单元格中输入文件#并按下按钮。宏检查同一工作簿中的2个不同工作表中的文件号,并返回每个工作表中具有相同文件号的任何数据。每个工作表中可能有7,000行数据。 当我在计算机上运行宏时,该宏通常会在12到20秒内一致完成。我对这些结果感到满意。 我已将宏发送给其他人。当他们运行它时,有时他们会得到相似的结果。有时,完成不同文件编号需要10到15分钟。当我运行相同的文件编号时,我得到相同的12-20结果。 我将一些代码放在宏中,以在代码部分的开头(在不同的工作表上)...
  • 用一张工作表重命名一个Excel文件

    我正在尝试使用一张工作表中的单元格重命名Excel文件。到目前为止,我知道我们可以使用“ name as”方法来重命名它,但是我只是不知道如何在vba中引用单元格。 我的尝试 Sub Rename_the_file() Name "C:\Users\bshen\Desktop\task6\result\result.xlsx" As "C:\Users\bshen\Desktop\task6\result\Institutional_FI_" & Project!C1&".xlsx" End Sub 在这...
  • 使用正则表达式获取多个匹配项以1或2位数字,点和空格开头

    我已经尝试了一个小时,但我自己也无法解决,如果可以,请帮助我。我正在尝试将我从pdf文件复制的多行文本拆分为注释1、2、3和4(理想情况下)或介于1和2.,2和3.,以及3.和4.之间的3个注释。工作。 使用该模式,我可以得到4个匹配项,但它只返回每个音符的第一行。 ^\d{1,2}\.[ ][a-zA-Z](.*\n) 我尝试添加一些东西,但是它要么返回错误,要么不匹配,要么仅匹配1个。 示例文本: 1. SOMEONE SOMEONE SOMEONE SOMEONE SOMEONE SOMEONE ...
  • 从动态表中提取信息到静态稳定器

    大家好, 我在工作簿中有一个动态表(研究跟踪器-似乎是图像),在该表中,我试图将信息从某些列复制到静态工作簿中(ICCharge-参见图像)。我想从研究跟踪器转移到IC费用的精确列如下... H至C,K至A,U至L,AB至J和AC至K 从ICCharge工作表的第13行开始。 。我的代码如下。 Sub InfoPull() 'Find the last used row in both sheets and copy and paste data below existing data. Dim w...
  • VBA宏可遍历单元格,查找匹配项并复制相邻的单元格

    我正在寻找一个宏,该宏在运行时将在两列(DISPLAY表中的M列和REPORT_DOWNLOAD表中的A列)中寻找匹配项,然后在存在匹配项时在REPORT_DOWNLOAD中复制相邻的3个单元格表格(单元格B,C和D)并将其分别粘贴到DISPLAY表格的单元格S,T和U中。 每个单元格只有一个匹配项。我已经尝试过一些以前的vba代码,该代码正在寻找每个匹配项的多个实例,但是我想在这一点上我已经很困惑了:( 任何帮助将不胜感激。 Sub Display() Dim ws1 As Worksheet, ws2...
  • vba中的sql脚本

    我在for循环中运行sql代码时遇到问题。该代码用于将sql代码简单地粘贴到一张纸中,但是当我将其放入循环中时则不能。是否有人在for循环中放置sql脚本有一些经验。 我需要它遍历我的三个工作表并将sql代码粘贴到每个工作表中。 Sub rapport() Dim ws_count As Integer Dim i As Integer Dim fundowner(3) As String fundowner(1) = "110" fundowner(2) = "120" fundowner(3) ...
  • 运行时错误“ 1004”,对象“ _Global失败”的方法“范围”。

    '我只是试图选择5天内属于某个范围(> = 751和<= 1600)的所有单元格。但是我不断收到此运行时错误“ 1004”,对象“ _Global失败”的方法“范围”。任何帮助表示赞赏。 Public Sub tank_2() Dim t As String Dim var As Range Set var = Application.InputBox("enter range", , , , , , , 8) t = var.Address For Each cell In Range(t) ...
  • VBA删除每个循环的单元格

    我正在尝试删除每个单元格以及该单元格左侧的一个单元格(如果该单元格的值为0)。(此外,如果该单元格的值大于0,则将内部颜色设置为不填充)。 到目前为止,这是我的代码 For Each cell In Range("I2:I" & LastTransaction) If cell.Value = 0 Then Range(cell.Offset(0, -1).Address, cell.Address).Delete Shift:=xlUp ElseIf cell.Value...
  • “多年库存数据”中的“年度更改”循环有问题

    我在使此VBA代码正常工作方面遇到一些麻烦,我知道问题在于年度更改循环未重置。 我正在为第一个股票代码“ A”获取正确的数据,之后,代码没有为股票代码“ AA ... AA-B ..”等生成适当的值 有人可以帮忙吗? 这是我输入密码后得到的结果 这就是应该返回的内容,因为您只能看到Integer A是正确的 因此,似乎我错过了一些“重置”或告诉excel在下一个整数时向下移动一个的东西,以便它可以获取收盘价的最后一个值。 这是我使用的代码: Sub StockDataLoop(): For Each ws ...
  • 排序日期并显示最近的日期VBA

    我有以下列表,我想对日期进行排序并显示最近的日期,并将它们存储在范围21和22中,如下所示: 我已经成功编写了这段代码,该代码有助于进行排序并显示最近的日期,并将它们存储在范围21内。现在我处于堆栈状态,不知道如何显示与每个最近的日期相关的结束日期。 Loop Until Not ech ' conversion of numbers into text for dico and listbox) ' and the false dates (written in text)...
公告

《从零开始开发BBS》课程上线啦,快来跟着我一步步搭建属于你的BBS吧。

课程地址:https://www.shiyanlou.com/courses/1436
9折优惠邀请码: ZHwfIjb1

该课程会带领大家一步步的了解并熟悉Go语言开发,如果你是一个Go语言初学者,或者正准备学习Go语言,那么这个课程非常适合你。如果你熟练掌握了本课程中的知识点,相信你就已经入门Go语言开发,并能胜任日常的开发工作了。