Sub 企業情報コピーテスト() Dim i As Long Dim s1 As String Dim excelldata1 As String Dim excelldata2 As String .... s1 = HtmlSorce.Cells(2, 2).Value '企業名 excelldata1 = Sheet1.Cells(4, 4).Value '資本金 excelldata2 = Sheet1.Cells(5, 4).Value Replace(s1,"tabledata1", excelldata1)
totals.shift # 先頭要素の0 を削除する p totals #=> [4, 11, 19, 31, 46, 48] 0731デフォルトの名無しさん (ドコグロ MM15-dzja)2019/11/18(月) 15:14:40.58ID:ScNSEd7IM>>722 Sub sample1() Dim i Range Range("B1") = Range("A1") For i = 2 To 6 Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1) Next i end sub
A列が不特定多数で出力の速さを求めるのなら
Sub sample2() Dim i Range,j Range j = WorksheetFunction.Count(Range("A:A")) Application.ScreenUpdating = False Range("B1") = Range("A1") For i = 2 To j Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1) Next i Application.ScreenUpdating = True end sub 0732デフォルトの名無しさん (ドコグロ MM15-dzja)2019/11/18(月) 15:19:20.54ID:ScNSEd7IM 間違えた
Sub sample1() Dim i As Long Range("B1") = Range("A1") For i = 2 To 6 Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1) Next i end sub
A列が不特定多数で出力の速さを求めるのなら
Sub sample2() Dim i As Long,j As Long j = WorksheetFunction.Count(Range("A:A")) Application.ScreenUpdating = False Range("B1") = Range("A1") For i = 2 To j Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1) Next i Application.ScreenUpdating = True end sub 0733デフォルトの名無しさん (スッップ Sda2-sGiA)2019/11/18(月) 15:42:28.46ID:cwF5jgoMd>>707 VBEのメニュー上にテキストボックス作って数値とアルファベット相互変換する奴作れば。 0734デフォルトの名無しさん (スッップ Sda2-sGiA)2019/11/18(月) 15:43:19.48ID:cwF5jgoMd>>720 寧ろ列番号の方が必要。 0735デフォルトの名無しさん (スッップ Sda2-sGiA)2019/11/18(月) 15:53:04.73ID:cwF5jgoMd>>722 Range("B1:B10").Value="=SUM($A$1:$A1)" '関数残したくなければ下を追加 Range("B1:B10").Value=Range("B1:B10").Value 0736デフォルトの名無しさん (ドコグロ MM4a-0xny)2019/11/18(月) 17:07:56.73ID:S9/8fJfLM>>734 どんなときに必要なの? 0737デフォルトの名無しさん (ワッチョイ eecc-7HT4)2019/11/18(月) 18:10:29.63ID:7QICIGub0 マクロ実行ブックと同じフォルダ内にある"CCT"というブックに 1つのシートがあって、そのシートをマクロ実行ブックの"CCT1"に貼り付けたいのですが "CCT"内のシート名が毎回変わってしまうので、変わってもコピペができるマクロをおしえてください